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C 16 
**F ILE®®1D**SORCOMMAN 
| 
SSSSSSSS_ 000000 —saRRRRRRRR cccccccc. }§=96 000000 Ss«M#M, 2s MM_soMM MM  AAAAAA NN NN 
SSSSSSSS 000000 _—aRRRRRRRR CCCCCCCC © 000000 = MM mM MM MM = AAAAAA ON NN 
S$ 00 00 RR RR CC 00 00 MMMM MMMM MMMM MMMM AA AA NN NN 
5S 00 00 RR RR CC 00 00 MMMM MMMM MMMM MMMM AA AA NN NN 
SS 00 00 RR RR CC 00 00 MM MM MM MM MM MM AA AA NNNN NN 
SS 00 00 RR RR CC 00 00 MM MM MM MM MM MM AA AA NNNN NN 
SSSSS$ 00 OO RRRRRRRR  (C 00 00 MM MM MM MM AA AA NN NN NN 
SSSSSS__ 00 00 RRRRRRRR  (C¢ 00 00 MM mM MM MM AA AA NN NN NN 
$$ 00 00 RR RR cc 00 00 MM MM MM MM AAAAAAAAAA NN NNNN 
S$ 00 00 RR RR ¢¢ 00 00 MM MMMM MM AAAAAAAAAA NN  NNNN 
SS 00 00 RR RR (CC 00 00 MM MMMM MM AA AA NN NN ae 
SS 00 0O RR RR cc 00 00 MM MM MM MM AA AA NN NN Guus 
SSSSSSSS 000000 ~=—saRR RR CCCCCCCC 000000 MM MMMM MM AA AA NN NN cae 
SSSSSSSS 000000 ~=s RR RR  CCCCCCCE 000000 += MM MMMM MM AA AA NN NN seed 
LL HII SSSSSSSS 
LL III SSSSSSSS 
LL 1] S$ 
LL 1] SS 
LL I] 5S 
LL 11 S$ 
LL II SSSSSS 
LL 1] SSSSSS 
LL I] SS 
LL 11 SS 
LL I] SS 
LL 1] S$ 
LLLLLLLLLL IIIIII SSSSSSSS 
LLLLLLLLLE «= sAIIII «= SSSSSSSS 
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MODULE SORSCOMMAND ( 
— = 'v04-000' ! File: SORCOMMAN.B32 Edit: PDG3024 


BEGIN 


LRA EEE 
'e 
'‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'‘t DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
pe ALL RIGHTS RESERVED. * 
'@ * 
'® alg SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® ok tS THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
'® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® FRANSFERRED. * 
' ea 
'® phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
% 
% 
© 
oa 
1 
te 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


+ 
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FACILITY: VAX=11 SORT/MERGE 
ABSTRACT: 

This module processes the SORT/MERGE command Line. 
ENVIRONMENT: VAX/VMS user mode 
AUTHOR: Peter D Gilbert, CREATION DATE: 07-Jan-1982 
MODIFIED BY: 
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103-012 Original 

T03-016 Added a check that the CLISK_SORT_xxx and CLISK_MERG_xxx 
externals have the same value. PBG 9- “$5 he 

T03-017 Remove reference ce CLISEMD _PARSE. PDG 22- oct 8S os 
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18 Stable op tion is allowed for merges. 
1 a a DE 3 TAULTINATIONAL to “wut 

0 Various ch an es for KANJI. PDG 

1 Make SORSSDTYPE_T_W a weak external. PD es Na 
§ Convert to use new CLI interface. PDG 1 “Ayan! 8 
Si New CLI interface for checkpointing. PDG_1 
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v04-000 1278 08-13be 00 tOi41 SORT32.SRCJSORCOMMAN.B32;1 . 
3 7 0036 1 LIBRARY ‘SYSS$LIBRARY:LIB'; 
; 8 89 1 REQUIRE ‘SRC$:SORMSG'; 
c:. 4 1 !¢ 
; ww 0235 1! 
: 61 0 8 1 ! Note that we do not use SORLIB.REQ. This ensures that the code in this 
: ° 8 : module does not depend on internal data structures. 
: 64 0239 1 i- 
: re 6 ay : ' These Literal trol tf defined key d 
3 ! These erals control support for user-defined key data types, 
; oF 0 rk: 1 ! and checkpointing. ay ; . “9 
s 68 0243 1! 
; 869 0244 1 LITERAL 
;- 2 034s 1 FUN_K_KANJI = %VARIANT, 
Toe 0246 1 FUNK-CHECKPOINT = %VARIANT; 
5 £ 0247 1 
: @¢£ 0248 1 
: 74 0249 1 FORWARD ROUTINE 
3 75 0250 1 CMD_ERROR, ' Issue an error diagnostic 
ee arr | parse sTusbars™s'”e 
: 78 $588 1 SPEC: , NOVALUE, i Parse specification file name 
;.- 0254 1 SET_COLL: NOVALUE, ! Get argument of /COLLATING_SEQUE= 
et ee ie es | EE Se nema ot teaels 
° o- : ° . u u n 
: Be 0357 1 SETTour Fit: NVALUE; | Set gutbut tile record, format 
: ~INP_FMT: s ' Set input record forma 
; 84 $526 1 SET_KEY: NOVALUE, ' Parse on store key definitions 
: i 8560 } LOORUP_KEY, ! Compare keyword strings 
: 4 bs6¢ : Define the SORT-specific routines 
; 8 soz] Bet -fnges NOVALUE: ‘moieties 
: : ‘ ' Set no work files 
; (91 U 0266 1 %IF FUN_K_KANJI %THEN 
= 9 U 0267 1 DEL_BOTH, 
; | «694 0269 1 &FI 
; +4 osiy ' SET_WORK: NOVALUE; ' Get the number of work files 
: 97 Og7e 1 
; 98 U 027 1 ZIF FUN_K_CHECKPOINT XTHEN 
: 299 U 0274 1 EXTERNAL ROUTINE 
; 100 U 8673 1 ! 
s 101 U A} 1 ' Routines that interface to the CLI 
3 105 U 0277 1 ! ; 
; 10 U 0278 1 CLI_BEGIN: NOVALUE, ' Setup CLI processing 
: 104 U 0279 1 CL1_GET_VALUE, ' Get value of item 
: 106 U O58) ) | ELECNERT QUAL Bg FP tata. 
; ” ° ! Get next qualifier 
3 4 U 0282 : aso NOVALUE ; ! End CLI processing 
: 109 84 1 EXTERNAL ROUTINE 
: 110 32 1 ! 
a 6 1 !' Routines that interface to the CLI 
: i osee 1 ! 
; 0288 1 CLISGET_VALUE, ! Get value of item 


F 16 
S$ we 16-Sep-1 2:45:11 AX-11 Bliss-32 V4.0-7 Page 3. 
youe00 1ox88871382 P3481] Fesatso°SReSsbectmmbn’ 6 S251 «25 
: 1146 89 1 CLISPRESENT ! Determine if 139. is present 
> 145 90 3 CLISNEXT_QUAL; i Get next qualifie 
3 1 91 1 BIND ROUTINE 
: 11 35 1 CLI_GET_VALUE = CLISGET_VALUE, 
: 138 8 935 (1 CLI-PRESENT = CLISPRESENT, 
2 94 «WN CLI_LNEXT_QUAL = CLISNEXT_QUAL; 
; 120 0295 1 &FI 
3 1s) 0 38 1 
- § fe 1 MAC 
: tt 8 38 } } Macro to test an assertion about compile-time constants. 
; 138 M 0800 1 ASSERT (A)= 
; 126 m 9301 1 air i. (A) 
oi Sar M Ba06 1 
; 128 m 03035 1 Me ERROR( Assertion failed’) 
; 129 0304 1 MFI 2%; 
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: These macroes define the external and internal representations of options for 
! command Line qualifiers. The second parameter in each pair ony be translated; 
! the first, however, is used to define the internal name for this option, and 
may not be translated. 


ACRO 
STR_OPT_OUTFMT = ' outfile/FORMAT=(...) 
"FIRE', "FIXED', 
"VARI". "VARIABLE' 
"CONT', ‘CONTROLLED’, 
"SIZE*. ‘SIZE' 
"BLOC';, "BLOCK’SIZE' %, 


STR_OPT_INPFMT = 
FICE’, "FIL 
"RECO", "REC 

PROCESS = 

", "RECORD', 

"TA t 


‘ADDR’, "ADDRESS', 
"INDE', ‘INDEX’ &. 


inpfile/FORMAT=(...) 


zz 
pee wee lololololeleleleleololo) 


WW 


/PROCESS=... 


oS ! SKEYE wc 
"ASCENDING', 

"BINARY' 
"CHAR'. ‘CHARACTER’, 
"DECI’, "DECIMAL, 

'DESC’. "DESCENDING’, 
MIF FUN_K_KANJI X%THEN 

'STYP’, "DTYPE’, 
“FI 
FL’, "F_FLOATING', 
FL', "D7FLOATING'. 


L', "GIFLOATING', 

H- FLOATING’, 
‘LEAD’. "LEADING SIGN’, 
NUMB', '"NUMBER' 

‘OVER’. ‘OVERPUNCHED SIGN’, 


"POSI'. "POSITION' 
"PACK", ‘PACKED DECIMAL", 


WANA NANI AIA POPUPOPINININYNUDD 2 2 2 SS S| OOOO 
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NUMBER : nn 

! POSITION:nn 

! SIl:nn or SIGNED 
! SIZE:nn 
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STR_OPT_ COLL = 
*ASTI' 


09.0909 09 SIN NINN NNO AAA AAAAA AMI BS BB BB BEE EWAN 
zzz 
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TIONAL" %; 
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Default specification file 


scien 


188 
189 


0366 1 MACRO 
65 1 STR_DEF_SPECFILE = '‘SYSSINPUT' %; 
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SORT32.SRCJSORCOMMAN.B352; 1 
EXTERNAL LITERAL 


EXTERNAL LITERAL 
SORSGK_RECORD, 
SORSGK-TA 
SORSGK-ADDRESS, 
SORSGK~ INDEX; 


' Define the maximum number of g we will allow. This need not agree with 
the value used by the callable interface routines, but it should be as Large. 


LITERAL 
MAX_KEYS = 255; 


090909 09 SI NINN SINS NNN SIO OOO Ono 


CONAUES WN OOONAU EWN 0 OONOUE WN OVOONOUS 


MACRO 
Fields for key buffer. 


KEY_NUMBER= 
KEY—KBF (N)= 
KBF ~TYPE= 

KBF ~ORDER= 
KBF ~ORDER_S= 
KBF~POSITION= 
KBF ~LENGTH= 

LITERAL 

KBF_S_ENTRY= 


Number of n. descriptions 

Address of KBF (0..number-1) 

Data type of key. 

True iff coqeane 4 order 

Signed version of KBF_ORDER 

Offset to key within record (1..LRL) 
Length of key 


WO 000000000 00000000 
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; ! Size in longwords of key description 


XIF NOT XDECLARED(SORTS_FACILITY) 
XTHEN 
LITERAL 
SORTS_FACILITY = SORS_FACILITY; 
UNDE CLARE 
SOR$_FACILITY; 


oO 
= 
oO 
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CRO 
DEFSHR_CMSG,SEV] = 
NAME (*SORS_SHR_',MSG) = 
ENAME (*SHRS"" (MSG) + 
ZNAME ("STS$R_*,SEV) + SORTS_FACILITY * 16 2; 


> & 
OOoOoCooooooooo 
RRERRRRRRRESRES 
ft et tt tt 1 OOO 


nvalid data (!XB) at !XL 
AS is an invalid keyword 


ROPOPOPOPIPOPDNOAPSPYPYINDNYNGNYININYADIPONINIDINPINININININININININYINININININPUNYNININININININININID 2 2 OS 
ee ee ee ee ea ed dd dd 


DS el ek et et hohe 
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vvvD 


HR_( 
BADBYTE, SEVERE, | 
BADKEY, SEVERE, =. 


sear 


vuvuvV 


OoOoooooo 
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LITERAL 


! Internal logic error Ras 
i Invalid data (!XW) a 

i tas? ei og requires a 
i Error parsin 

i System servite error 


STSSK -WARNING + SORTS_FACILITY * 16; 
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SORSCOMMAND 16=$65-1986 00:45:11 VAX=11_BLiss-32 V4.0-7 p 
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-0 14-Sep-1984 :10:41 SORT 2° SRC JSORCOMMAN. 8 2:1 
; 34 r 8 ! This macro builds a keyword description table, passed to LOOKUP_KEY 
; 9 431 1 MACRO 
; 260 m 04 § 1 KEY_TABLE_() = 
3 20) M Be 1 “LITERAL TABLE SIZE = ZLENGTH/2 
; 6¢ M0434 1 KEY TABLE1_(ZREMAININGS; 
3 6 8 2.3 KEYGORD TABLE = PLIT(KEY OUNT 27 (ZREMAINING)): VECTOR %, 
: 264 4 § 1 KEY FABLE -fey = ZNAME('K_',X) = XCOU 
: 265 0437 1 KEY-TABLE2 = UPLIT BYTE(ZASCIC Y) %; 
; 266 0438 1 
; 267 0439 1 
; 268 0440 1 ! This macro stores a value in a variable. It checks for overflow. 
; 269 0441 1! 
; 270 044 1 MACRO 
3: e771 M 044 1 STORE_( 
; 37¢ M0444 1 TF "EALLOCATIONO® L°S %UPVAL 
: ar m 0445 1 
; 74 M0446 1 HEOEGIN 
: 75 M0447 1 LOCAL 
s 276 M0448 1 z; ' So Y is evaluated only once; a BIND may be better 
. @re M0449 1 gm (Y¥23 
s ef m 0450 1 x = 2; 
: 279 m 0451 1 IF .2<0,%ALLOCATION(X) *%BPUNIT,O> NEQ .Z 
: 280 M Oh 28 1 THEN 
; 281 M 045 1 =e CMD_ERROR( 
: ses M0454 1 F ZACLOCATION(X) EQL 1 
; 28 m 0455 1 ae SOR$_SHR_BADBYTE 
3; 284 m 0456 1 ZELSE SORS_ SHR ~BADWORD 
: 285 m 0457 1 Wi. 26 «he OF 
3; 286 M0458 1 END 
3; 287 M0459 1 ZELSE 
: 288 ™ 0460 1 x = (Y) 
; 289 0461 1 ZFI 2; 
; 290 bees 1 
; 291 0463 1 he 
; 292 0464 1 ! Define these mnemonic Literals 
: 293 0465 1} 
; 296 0466 1 LITERAL 
: «% 0467 1 TRUE = 1, 
: 296 0468 1 FALSE = 0; 
3; 297 0469 1 
3 344 0470 1 ; ; 
: 4 pee : Define the ONEOF macro, and its related macroes. 
3 30 47 1 MACRO 
s 302 0474 1 XBMSK_CAJ= (1 * (31 = (A))) % 
: 303 0475 1 BMSK CJ= (0 OR XBMSK_(ZREMAINING)) 2%, 
$ 04 0476 1 ONEOF _ (A,B)= (((B) *"(A)) LSS 0) 2%; 
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! Define bit positions within FLAGS 


' 
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v04-000 13-808- 138 tat SORTS2 SRE SORCOMMAN.852;1 
3 8 p78 1 ! Define the codes for the sort or merge Quel tiers 
: 9 499 1 ! Note that they both use the the ni es CLISK_SORT xxx. 
3 0 0500 1! If ony SORT=specific quel i tiers are used with MERGE, or any MERGE-specific 
: 1 828) } } qualifiers are used with SORT, the code will signal CLIS_INVQUAL. 
; 38 8208 1 MACRO 
> 334 m 0504 1 QUALCODES = 
3 M 0308 : i The SORT ifi Lifi 
3 ! The “specific qualifiers 
Sh died Bigs 5 Sater sonentnie 
; ‘ ! =sort-type 
: $39 "0509 1 "WORK. FILES’, i 7WORK-FILESsn 
329 §219 i The MERGE ifi lifi 
3 ' The “specific qua ers 
i 34g M0512 1 i : 5 
: 7 m 051 1 *CHECK_SEQUENCE', ! /CHECK_SEQUENCE 
; zie oie i i Th lifi both SORT d MERGE 
: ' The qua ers common to bot an 
; 346 m 0516 1 ! 
; 347 m 0517 1 "KEY" ! /KEY=sort-ke 
; 348 m0518 1 "SPECIFICATION’, ! /SPECIFICATION=spec-file 
; 349 m0519 1 "STABLE', ' /STABLE 
: 390 M0520 1 "COLLATING SEQUENCE’,  ! /COLLATING SEQUENCE=collating-type 
: 351 M0521 1 "STATISTICS', ' /STATISTICS 
; 326 m 05 ; 1 *DUPLICATES', ! /DUPLICATES 
; 35 M0523 1 XIF FUN_K_CHECKPOINT %THEN 
: 354 m 0524 1 "CHKPNT', /CHKPNT 
: ioe ™ 0525 1 XFI 
s 336 m 0526 1 ! 
: or M base 1 ! Output file qualifiers 
; 358 m 0528 1 ! 
3; 359 4 8288 1 *SEQUENTIAL', ! /SEQUENTIAL 
; 360 ™ 0530 1 "RELATIVE', ! /RELATIVE 
: 361 m 0531 1 * INDEXED_SEQUENTIAL', ' / INDEXED 
s Jee M baa$ Torititt! "FORMAT', ! /FORMAT=record-format (handled specially) 
3 «6365 ™ 0533 1 *BUCKET_SIZE', ' /BUCKET_SIZE=n 
: 364 M0534 (1 "ALLOCATION', ' /ALLOCATION=n 
s 36s ™ 0535 1 *CONTIGUOUS', ' /CONTIGUOUS 
: 308 m 0536 1 *OVERLAY', ' /OVERLAY 
: 67 0537 #1 *LOAD_FILL* 2%; ! /LOAD_FILL 
: 368 0538 #1 0 
; 369 m 0539 1 Qc_4(x] = 
; 370 40540 1 ZIF ZCHARCOUNT(X) LEQ 4 2ZTHEN X ZELSE ZEXACTSTRING(4," °,X) FI, 
: 3) 0541 1 FSTRINets 
3 Sve b268 1 QC_1CX,¥J] = XNAME ("SD_",X) = S$DESCRIPTOR(Y): SBBLOCKCDSCS$C_S_BLN] 2%, 
- 3s m 05435 1 Qc_2Cx,yv] = 
5 $e m 0544 1 ZNAME ('°SD ) 
: 5375 m 0545 1 Z1F XDECLARED (2NAME("I0S_'.X)) ZTHEN ZNAME('IOS_",X) ZELSE O 2FI, 
; 376 0546 1 ZIF ZDECLARED(ZNAME('SET_',X)) XTHEN ZNAME('SET_°,X) ZELSE O 2FI, 
. weer 0547 1 ZIF ZDECLARED(ZNAME(*NOT_',X)) ZTHEN ZNAME('NOT_*,X) ZELSE O 2FI 2%, 
: 78 0548 1 QC_3£] = ZLENGTH 2; 
; 379 0549 1 LITER 
; 380 0550 1 STR_K_QUALCODES = QC_3( QUALCODES ); 
3s 381 B28) 1 MACR 
: 8 226 1 STR_OPT_QUALCODES = ZUNQUOTE QC_4( QUALCODES ) %; 
; 3 B22 1 BIND 
; 384 554 1 QC_1( STR_OPT_QUALCODES ), 


1 
SORS AND 1b-se -1984 00:45:11 AX-11 Bliss-32 V4.0-74 Page 11 
5042000" aoe 1 Tee SORT32.SRCJSORCOMMAN.B352; 1 ° } 
s 385 b > 7 QC_1( QC_4¢ 
: 8 P § 1 "pit, ' Input file(s) 
3 P 1 "p2° ! | file 
: 388 p 0558 1 'SVER oS i Verb from the command Line 
: «389 8225 1 "FORMAT i /FORMAT=record-format 
; ra 8209 : CLIQUALDESC = PLAT QC_2( STR_OPT_QUALCODES ) ): VECTOR; 
3 96 036¢ 1 
: 3? 8207 } Qualifier string value descriptor block 
; 395 0565 1 STRING DESC: S$BBLOCKCDSC$C_D_BLN), 
$ 38 566 1 SUBVAL_DESC: SBBLOCKLDSC$C_S_BLNJ; 
; 567 1 
; 398 568 1 
; 399 0569 1 EXTERN, Soviiee 
: 400 0570 1 CLISPRESENT: ADDRESSING_MODE (GENERAL), ! Determine if /CHKPNT 
; 401 0571 1 TRSCOPY_R: ADDRESSING_MODE (GENER L): ' String copy 
; 40 bare 1 SOR$ at DDRESSING_MODE (GENERAL), ! Process spec file 
: 40 0573 (1 ORSPASS FILES ADORE 331 We RO ste ee ' Pass file names 
; 404 0574 1 SORSBEGIR_SORT: ADDRESSING MODE (GENERAL), ! Initialize the sort 
; 405 0575 «(1 SORSBEGIN_MERGE : ADDRESSING_MODE (GENERAL), ! Initialize the merge 
: 406 U 0576 1 ZIF FUN_K_KANJ] XTHEN 
3 ret U baie ; a SORSSBTYPE_T_w: ADDRESSING_MODE(GENERAL) WEAK, ! Key name to code 
: 409 0879 LIBSSIGNAL: ADDRESSING_MODE (GENERAL) ; ! Signal an error 
: 611 0581 1 EXTERNAL LITERAL 
: 412 bes 1 CLIS_ eo ! Error converting value 
; 413 0583 1 CLIS_IVC i Invalid character 
> 414 0584 1 CLIS_IVV i Invalid value 
3: 4615 0585 1 CLIS_ “NECAT Eb, ! Qualifier was explicitly negated 
: 416 0586 1 CLIS_ INVQUAL: i SORT-specific quals used with MERGE, or vica-versa. 
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voce 600" ~30 71 Re 99: 2:10:41 aaRTs2° SRCJSORCOMMAN. 3 2;1 . (8) 
; 4) 7 1 OWN 

: re 3 : CMD_CLEARO: VECTORCO), 

; 4 1 381 ; Parameters passed to PASS_FILES 

; 6 § %¢ 1 ORG BYTE, ! File organization 

> 424 593 1 RFM BYTE, ! Record format 

; 425 0594 1 BKS BYTE, ! Bucket size 

; 4626 0595 1 BLS WORD, ' Block size 

s $627 0596 1 WORD, ! Maximum record size 

> 428 0597 1 OUT_ALQ: LONG, ' Allocation quantity 

: : 3 Begs : F LONG, ! File-processing options 

: 431 9600 1 i Parameters returned from SORSSCOMMAND 

: £33 pene 1 KBF : REF BLOCK, ! Key buffer address 

; rh 0605 1 : WORD, ! Longest record Length 

: 435 0604 1 INP_ALQ: LONG, ! Input file allocation 

; 436 0605 1 : BYTE, ! Number of work files 

3; 437 0606 1 TYP BYTE, ! Sort type 

: 438 0607 1 OPT LONG, ! Options 

; 439 0608 1 CTX: LONG, : 

; 440 0609 1 FSZ: BYTE, ! Size of the VFC field (word suffices) 
: 441 0610 1 4 

; 44 0611 1 ' Sort parser flags 

: 44 Belg 1 : 

3; 444 061 1 FLAGS: BITVECTOR(32], 

3; 6445 0614 1 ‘ 

; 446 0615 1 CMD_CLEAR1: VECTOR(O]; 


' Address of context longword 
| 
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; 44 $16 1 ROUTINE CMD_ERROR(ERR) = 

; 44 617 1 

3 rt 718 1 t+4 

; 451 619 1: 

; 438 Y | FUNCTIONAL DESCRIPTION: 

; tee Oe § : This routine signals an error diagnostic. 
> 456 6 4 1 | FORMAL PARAMETERS: 

: 457 605 1! 

; 458 06 $ 1 i Parameters passed to LIBSSIGNAL. 
; 459 be 1! 

: 460 608 1 | IMPLICIT INPUTS: 

; 461 Be 91! 

3 re | 630 1! NONE 

: 46 0631 1! 

> 464 Boss 1 ' IMPLICIT OUTPUTS: 

; 465 06 1: 

; 466 ste 1 NONE 

3: 467 0635 1! 

; 468 0636 1! ROUTINE VALUE: 

3; 469 0637 1! 

; 470 0638 1! System status 4 Seay parameter of signalled status), with the 
3; 471 0639 1! INHIB_MSG bit se 

; 47 0640 1} 

; 47 0641 1 | SIDE EFFECTS: 

> 474 0642 1! 

3; 475 0643 1 / The image may be exitted due to the error. 
3; 476 0644 1! 

: 477 0645 1 i- 

: 478 0646 2 ” BEGIN 

3; 479 0647 2 BUILTIN 

: 480 0648 2 AP, 

; 481 0649 2 CALLG; 

; 482 0650 2 CALLG(. wid LIBSSIGNAL); 

: 483 bees . Ah URN .ERR OR STSSM_ INHIB MSG; 
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2 000° 3 ADDRESS P.AAF : 
59 45 4B C P.AAH: ASCII \KEY\ : 
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¥04-000 eR ae rn ee PUD ae tg tel tek Pe 9 19) 
1 -BLKB $ 
990 00 138 P.ABI: .LONG : : : 
9 * 001 “ADDRESS P.ABJ : ; 
160 P.ABL: <:ASCII  \P2 : ; 
16 -BLKB § 3 
99900002 194 P.ABK: .LONG ; ; 
00 09 ' 001 “ADDRESS P.ABL : : 
42 52 45 56 24 O16¢ P.ABN ASCII ySVERB\ : ; 
90000005 ted P.ABM: .LONG 5 ; ; 
0000000" 00178 “ADDRESS P.ABN : : 
54 41 4D 52 4F 46 O17 P.ABP: ASCII \FORHAT\ : : 
0000006 00184 P.ABO: PONG 6. ; ; 
29900000: 0188 “ADDRESS P.ABP : : 
00 9900" 018¢ P.ABQ: ADDRESS $D_PROC : : 
000010 001 “LON : : 
9000 900v 0194 “ADDRESS SET_PROC : F 
0000000 00198 : : 
00000000' 0019¢ “ADDRESS SD_WORK : : 
00000008 90140 : ; 
00000000" 00000000 90000000v O1A4 ADDRESS if", WORK, NOT_WORK, SD_CHEC : ; 
00000000 00000000 9000000 01B0 LONG : : 
00000000" 001BC¢ “ADDRESS +, : : 
0000000F 001C0 : : : 
99000000v 00164 “ADDRESS SET_KEY : ; 
0 000000 001¢8 ‘ : ; 
0000000" 001¢C [ADDRESS SD_SPEC : : 
00000000 00100 7 0 : : 
00000000v 90104 “ADDRESS SET_SPEC : : 
00000000 00108 ‘ : : 
00000000" 001D¢ “ADDRESS SD_STAB : ; 
00000000 00000000 0000000A 001€0 LONG ; : 
00000000" O01EC -ADDRESS $6_COLL : : 
00000000 001FO “LON : ; 
00000000v 001F4 ADDRESS SET_COLL : ; 
9000000 001F8 “LON : : 
90000 0 OO1FC ADDRESS SD_STAT : ; 
00000000 00000000 0000 0B 9200 -LON : ; 
0000000" 0020¢ [ADDRESS SO_DUPL : ; 
00000000 00000000 00 00 0210 LONG 0 : : 
0000000" 0021¢ “ADDRESS Sb_SEQU : 
00000000 00000000 00 0220 “LONG 2 0 : 
' 0 ¢ [ADDRESS SD RELA : 
00000000 00000000 “LON : 
* 0023¢ “ADDRESS §D_{NDE : 
00000000 00000000 04 46 “LON : 
0° 4¢ “ADDRESS SD_ BUCK : 
V 4 “ADDRESS SET_BUCK ; 
8 LON 0 : 
* 00 “ADDRESS SD_ALLO : 
eLONG 7 3 
V “ADDRESS SET_ALLO ; 
-LONG 0 3 
, ' ¢ “ADDRESS SD_CONT : 
00000000 00000000 "LONG 9, 0, 0 : 


seca 


00000000 00000000 
00000000 00000000 


1 
1 


-PSECT SOWNS,NOEXE,2 
00000 STRING_DESC: 


-BLKB 8 
00008 SUBVAL_DESC: 

BLKB 8 
00010 CMD_CLEARO: 

-BLKB OO 
00010 ORG:  :BLKB 1 
00011 RFM:  :BLKB 1 
00014 BKS: .BLKB 1 
0001 “BLKB 1 
00014 BLS: § <BLKB ; 
00016 MRS: — .BLKB 
00018 OUT_ALQ:.BLKB 4 
Q001C FOP? .BLKB 4 
00020 KBF:  :BLKB 4 
00024 LRL: :BLKB 2 
00026 “BLKB 2 
00028 INP_ALQ:.BLKB 4 
9002¢ WRK? .BLKB. 
00020 TYP: -BLKB I 
0026 “BLKB 2 
900 OPT:  <BLKB 4 
0034 CTX:  cBLKB 4 
00038 FSZ: :BLKB 1 
00039 “BLKB 3 
0003C FLAGS: :BLKB 4 
00040 CMD_CLEAR1: 

-BLKB 0 
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; Routine Size: 19 bytes, 


000000006 00 


6c F 


04 AC 10000000 8F ¢ 
04 00012 


Routine Base: 


SCODES + 0000 


H 1 
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14-Se 


A 00002 
9 00009 


4 
pr heke § 

CLIQUALDESC= 
sEXTRN 
eEXTRN 
eEXTRN 
«EXTRN 
«EXTRN 
«EXTRN 
EXTRN 
«EXTRN 
EXTRN 
~EXTRN 
«EXTRN 
~EXTRN 
»EXTRN 
-PSECT 
"WORD 
te 
BISL 
RET 
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seca 


; rs] g684 } GLOBAL oe aan SORSS$SCOMMAND 

> 488 08 >» ¥ CONTEXT: REF VECTORC1,LONG), 

: 489 6 § 1 SORT_FLAG: REF VECTORL1,BYTEJ, 

: 490 06 1 STATISTICS: REF VECTORL1,BYTEJ, 

> «491 88 8 1 IMAGE _AP: REF $BBLOCK 

; 49 659 1 = 

; 49 0660 1 !++ 

; 494 0661 1 ! Functional Description: 

: 495 poRg 1! 

: 496 06 1! This routine gets the sort command Line from DCL and calls DCL to 
3; 497 664 1! parse it. 

; 498 665 1! 

; 499 0666 1 ! Formal Parameters: 

; 500 0667 1! 

; 501 0668 1! CONTEXT Address of pointer to the context area 
; 206 0669 1! SORT_FLAG Flag indicating we were invoked by SORT (not MERGE) 
; 3 0670 1! STATISTICS Address in which to return whether statistics requested 
3 ape per} ' IMAGE _AP Address of main program's argument List 
; 506 0673 1°! Implicit Inputs: 

; 507 0674 1! 

; 508 0675 1! NONE 

; 509 0676 1! 

; 510 0677 1! Implicit Outputs: 

3. 37) 0678 1! 

3 21§ 0679 1! NONE 

s 51 0680 1! 

; 514 0681 1 ! Routine Value: 

; 29 0682 1! 

; 516 06835 1! Status value 

s Sir 0684 1! 

3; 318 0685 1 ! Side Effects: 

3. 319 0686 1! 

s 320 0687 1! Calls PASS_FILES. 

3 Se} 0688 1! 

3 2s¢ 0689 1 !-- 

; 3 0690 1 

; 524 0691 BEGIN 

3 «345 069 LOCAL 

: 526 069 KEY_BUFFER: VECTORC1+4*MAX_KEYS,WORDJ, 

3 ter 0694 OUT_FILE_DESC: SBBLOCKEDSCSC_0_BLNI, 

; 528 0695 INP_FILE_DESC: S$BBLOCKCDSC$C_D_BLNI, 

3 283 de? STATUS; 

3 331 M 0698 LENADR_(X) = ZIF ZISSTRING(X) 

; 236 M 0699 ZTREN XCHARCOUNT (xX) PLIT BYTE(X) 

; 53 0700 ZELSE .XCDSC$W_LENGTH), .XCDSCSA_POINTER) XFI %, 
3 «534 mM 0701 DSC_INIT_(X,CLASS) = 

; 329 M re BEGIN 

; 536 mM 07 XCDSC$W_LENGTH] = 0; 

; 537 M 0704 x DSCSB-CLASS] = NAME ('DSCSK_CLASS_", CLASS); 

; 338 m 0705 XCDSC$B_DTYPE) = DSCSK_DTYPE_T; 

3; 539 M 07 $ XCDSCSA_POINTER) = 0; 

3 29 4 f END 2; 

3; 542 0709 ! Initialize out dynamic string descriptors 


1 
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; 543 710 ! 

$ 44 711 DSC_INIT_(OUT_FILE_DESC, 'D'); 

3 45 ar DSC_INIT_CINP_FILE DESC, 'D'); 

$ <3 fi? DSC[INIT_(STRING_DESC, D°):; 

: rt ae Clear our variables 

: $56 at CHSFILL(O, CMD_CLEAR1=CMD_CLEARO, CMD_CLEARO); 

; 33¢ L Ord 5 XIF FUN_K_CHECKPOINT 

; 3 U 0720 XTHEN 

: 22¢ ¥ f 1 If we're a checkpoint subprocess, call the CLI through a mailbox 
: 556 U 0798 CLI_BEGIN(IMAGE_APCBASE_J, CLISPRESENT(SD_CHKP)); 

in es be 

: 559 0726 ' Determine whether the user invoked SORT or MERGE 

3 260 of 4 Base this judgement on the verb from the command Line. 

; 36¢ 0729 CLI_GET_VALUE( SD_SVER, STRING _DESCCBASE_J d; 

; 56 0730 FLAGSCIOS_SORT] ="SORT_FLAGLO]~= TRUE; ' Assume we were invoked by SORT 
; 208 O73) IF EGreEOL CLENADR, (STRING_DESC) LENADR_("MERG')) !' JUST FOUR CHARACTERS! 
; 206 O738 FLAGSCIOS_SORT] = SORT_FLAGCO] = FALSE; 

: 308 O75 ! Get the context longword 

: 570 0737 CTX = CONTEXTCO); 

: 8h O739 3 

: 238 $320 ! Zero the number of keys, and indicate that each key is ‘‘not yet used'’, 
; are Bees by putting -1 in the KEY_ORDER field. 

: 576 ok KBF = KEY BUFFERLOI: 

: 577 0744 KBFCKEY_NOMBER] = 0; ! No keys yet 

; 278 Ore é DECR I FROM MAX_KEYS-1 TO 0 DO 

; 580 0747 3 BLOCKC KBFCKEY_KBF(.1)], KBF_ORDER_S] = -1; 

; 581 0748 END; 

: 3Rg $786 

: 2ee Boe) : Get output file spec and its qualifiers 

; $84 0738 CLI_GET_VALUE(SD_P2, OUT_FILE_DESCCBASE_]); 

; aH boee SET_OUT_FMT(); 

; 389 £28 Process all the command qualifiers and output fille qualifiers 
; 294 738 INCR I FROM 0 TO STR_K_QUALCODES-1 DO 

: 4 75 BEGIN 

; 59 760 LOCAL 

3 94 76 Q: REF VECTOR; 

3 95 106 Q = CLIQUALDESC(4*.1]); 

; 96 763 4 IF (STATUS = CLI_PRESENT(.QC03)) 

3; 59 764 3 THEN 

: 98 765 & BEGIN 

; 599 766 4 FLAGSC.QC1)) = TRUE; 
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GIN 
Tee NEQ 0 THEN (.0Q03])(); 

Get input file spec and its qualifiers 
CLI_GET_VALUE(SD_P1, INP_FILE_DESCCBASE_)J); 
SETIINP_FMT(); 


: ek all output options specified to output file parameter 
rea. 


F .FLAGSCIOS_OVER) THEN FOP = .FOP OR FABSM_CIF; 
F .FLAGSCIOS_CONTJ] THEN FOP = .FOP OR FABSM CTG; 
F .FLAGSCIOS_SEQU] THEN ORG = FABSC_SEQ ELSE 

F .FLAGSCIOS_RELA] THEN ORG = FABSC_REL ELSE 

F .FLAGSCIOS_INDEJ THEN ORG = FABSC_IDX; 


As the utility, always set the ‘‘output file parse'’ option. 
OP = .FOP OR FABSM_OFP; 
\ 
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4 
4 
3 
4 
5; 
: Copy the filenames. 


STATUS = SORSPASS_FILES( 
INP_F LE_DESCEBASE 1. ! Descriptor for input file 
OUT_FILE_ DESCCBASE_J ! peace ipter for output file 
(IF7(.FLAGS AND 1*TOS_SEQU+1*10S_RELA+1°10S_INDE) EQL 0 
5 THEN 0 ELSE ORG) ' ORG 
36 (IF .RFM EQL 0 THEN O ELSE RFMD, i REM 
37 (IF .FLAGSCIOS_ BUCK) THEN BKS ELSE 0), ' BKS 
38 5 (IF .BLS EQL 0 THEN O ELSE BLS), ' BLS 
39 6 (IF .MRS EQL 0 THEN O ELSE MRS), ' MRS 
40 7 (IF .FLAGSCIOS_ALLOJ] THEN OUT_ALQ ELSE 0), ' ALQ 
641 08 (IF .FOP EQL 8 THEN O ELSE FOP), ' FOP 
O66 809 (IF fot pot THEN 0 ELSE FS2), ' FSZ 
64 519 CONTEXTLOJ); ! Context 
644 81 IF NOT .STATUS THEN RETURN .STATUS; 
645 aig 
bee Bia ‘Cc Opti 
! Co ons 
648 815 ‘Totaled 
649 518 IF .FLAGSCIOS_STAB) THEN OPT = .OPT OR SORSM_STABLE; 
650 1 IF .FLAGSLIOS_CHEC] THEN OPT = .OPT OR SORSM_SEQ CHECK; 
651 Ht IF .FLAGSCIOS-LOAD) THEN OPT = .OPT OR SORSM-LOAD FILL; 
626 1 IF NOT jFeagstios DUPLJ THEN OPT = .OPT OR SORSM_NODUPS; 
65 820 STATISTICSCOJ = .FLAGSCIOS_STATI; 
654 821 
655 8 § 
656 8 ! Now get the rest of the input files. 
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WHILE SL 1GETVALUE(SO_P1. INP_FILE_DESCCBASE_J) DO 
SET_INP_FMT(); 
STATUS = SORSPASS_FILES( 
NP_FILE_DESCCBASE_J, ' Descriptor for input file 
° : peect ister for output file 
3858 OLS AY 
cOnfexTto}); i Context’ ~ 
IF NOT .STATUS THEN RETURN .STATUS; 
%1F FUN_K_CHECKPOINT 
XZTHEN 
Indicate that no other CLI_xxx calls are needed 
CLI_END(); 
FI 


Set default options 


iOPT = .OPT OR 0; ! No other defaults 


' Push all the key descriptions together (this happens if the user 
uses NUMBER:n for non=successive n). 


BEGIN 
LOCAL 
P: REF BLOCK, 
Q: REF BLOCK; 
P= KBr KEY «BF (O) F 
Q = KBFCKEYKBF(0)); 
INCR 1 FROM 0 TO .KBFCKEY_NUMBERJ-1 DO 
Hai Cnet LORDER_SI GEQ 0 ! Do a signed fetch 
BEGIN 
CHSMOVE (XUPVAL*KBF_S_ENTRY, PCBASE_J, QCBASE_]); 
3 : QCBASE_) + XUPVAC*KBF_S§ ENTRY; 


N 
ELSE 
KBr KEY NUMBER) = .KBFCKEY_NUMBER] - 1; 
ps? BASE_J + XUPVAL*KBF_S ENTRY; 


END; 


IF_ .FLAGSCIOS_SORT) 
BEGIN 
; Check for specifying non-SORT options 
IF .FLAGSCIOS_CHECJ 
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SORSCOMMAND 16-Sep-1984 00:45:11 AX-11 Bliss-32 v4.0 Page 22 
9042500 12-808-1 3b Te SORT32.SRC SORCORMAN 4 2:1 ° 88 
> 7146 1 EN 3 
; fi? § RETURN CMD_ERROR(CLI$_INVQUAL); : 
3 a ¢ Call BEGIN_SORT : 
; 719 88 § éTaTus = B wtxiai IN_SORT ( $ 
s 720 08 4 (IF Lage I0S- KEY) ; 
: 721 0888 THEN KBF BASE J. ELSE 0), ! Addr of key buffer 3 
; £ ¢ 0889 LRL, i Longest record Length : 
, 7 0890 " ! Options longwor F 
3; 7246 891 NP_ALQ, i File allocation amount 3 
3 fee O36 ! Comparison routine 3 
; 726 U 089 X%1F FUN_K _KANJI XTHEN 3 
s 7e? U ba IF FLAGSEIOS BOTH] THEN DEL_BOTH ELSE F 
; 728 895 ZF I 3 
s 729 0896 0 ! No equal key routine ‘ 
: 730 0897 4 (iF .FLAGSCIOS PROCI ; 
3; 731 0898 3 THEN TYP LSE 0), ! Sort type 3 
4 et 0899 4 (IF .FLAGSCIOS WORK] : 
: 73 0900 THEN WRK gLSE 0), ! Number of work files : 
3 «734 901 CONTEXTCOJ); ! Context parameter 3 
s rao 90 END 3 
3 ra 090 ELSE 3 
; 73 0904 BEGIN $ 
3; 738 0905 ! 3 
3 a7, Bane Check for specifying non-MERGE options : 
: 741 0908 IF .FLAGSCIOS_WORK] OR .FLAGSCIOS_PROCI $1 
: 76 0909 THEN $1 
; 74 0910 RETURN CMD_ERROR(CLI$_INVQUAL); 3 7 
> 744 0911 ! 3 1 
3 745 0912 i Call BEGIN MERGE : 1 
: 746 091 ' 3 7 
3: 747 0914 STATUS, = SORSBEGIN_MERGE ( 31 
3; 748 0915 4 -FLAGSCIOS- KEY 3 1 
3; 749 0916 3 THEN N KBFCBASE_J ELSE 0), ' Addr of key buffer 3 1 
: 750 0917 LRL, i Longest ¢ record Length 3s 1 
: 751 3318 OPT, i Options Longword 31 
; 3g 091 0, i Merge order 3 1 
; 0920 0, i Comperisen routine 31 
3; «6754 U 0921 Z1F FUN_K _KANJI %TH 3 1 
s 755 U 09 5 IF FLABSCIOS -BOTH] THEN DEL_BOTH ELSE 3 1 
: £26 09 ZFI 3 1 
; oO 924 s ! No gavel key rout ine ‘ 2 1 
; 758 925 i No input routine 3 1 
3 £28 , $ ms CONTEXTCO});: ' Context parameter : 
; 761 03 ’ IF NOT .STATUS THEN RETURN .STATUS; 
; reg 03 0 RETURN SS$_NORMAL; 
3: 764 931 END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
47 52 45 4D 0029C P.ABR: .ASCII \MERG\ : 
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»PSECT SCODES,NOWRT,2 


OFFC 00000 -ENTRY SORSSCOMMAND, Save R2,R3,R4,R5,R6,R7,R8,R9,-; 0653 
SE F7F8 CE 9E 0000 MOVAB = ‘ : 
04 AE 02060000 &F BO itd MOVL 130294382 SP OUT_FILE_DESC + 0711 
08 AE D4 OO00F CLRL OUT FILE bESC+% : 
02060000 8F DD O18 PUSHL #34271 5 + 0712 
04 AE D4 01 CLRL. —sINP FILE DE : 
0000' CF 0200000 8F DO 0001B MOVL ia 5 STRING. DESC + 0713 
0000" cf 4 00024 CLRL_ STRING DESC+4 : 
00 6E sae 00 C 00 8 MOVCS #0, (SP), #0, #48, CMD_CLEARO t 0717 
0000' CF 9F 00030 PUSHAB STRING DESC + 0729 
0000" CF 9F 0054 PUSHAB : 
00006 CF 02 FB 00038 CALLS 42 tt GET_VALUE : 
08 Bc 01 90 0003p Ov6 @SORT_FLAG + 0730 
0000' CF 02 88 00041 BISB Ag AGS~ : 
00 0000" OF 0000" CF 2D 00046 CMPCS STRING_DESC, @STRING_DESC+4, #0, #4, P.ABR : 0731 : 
0000" CF 0004F : 
68 12 00052 BNEQ 1$ : 
08 BC 94 00054 CLRB @SORT_FLAG + 0733 
0000" CF 02 8A 00057 BICB2 #2, F AGS ; 
0000' CF 04 AC 00 0005¢ 1$: MOVL CONTEXT, CTX + 0737 
0000" CF 10 AE 9E 0006 MOVAB KEY_BUFFER, KBF : 0743 
0000' DF B4 00068 CLRW akBF + 0744 
50 FE BF 9A 0006C MOVZBL He 4 : 0745 
51 50 01 78 00070 2s: ASHL r : 0747 
51 0000'DF41 DE 00074 MOVAL axér any, R1 ; 
04 Al gi AE 007A MNEGW #1, 4(R15S ; 
EF 0 F4& O007E SOBGEQ I, : 0745 
08 AE OF 00081 PUSHAB OUT FILE_DESC : 0753 
0000" CF 9F 000 PUSHAB : 
00006 CF 02 FB 00088 CALLS > CLI_GET_VALUE ; 
0000v CF 00 FB 0008D CALLS * SET"OUT~FMT : 0754 
5 b4 0092 CLRL t : 0758 
50 52 02 78 00094 3$ ASHL 1, RO : 0762 
5 0000'CF40 DE 00098 MOVAL Cf fodALOESCERO3 Q : 
63 DD 0009 PUSHL (0) > 0763 
00006 CF 1 FB OOOA CALLS #1, CLI_PRESENT : 
38 0 D OA MOVL RO STATUS : 
1 E A BLBC STATUS, 5$ : 
00 0000' CF 04 AZ E 09 BBSS 4(Q), FLAGS, 4$ : 0766 
08 A3 D5 000B2 4$ TSTL 8(Q) : 0767 
08 B3 09 13 8608 ate Me : 
? 8 OBB RB 6 : 0765 
oc A D3 OBD 5$: TSTL  12¢Q) : 0771 
oc 09 13 Boos eet 88. a12¢0) ; 
CA BS § Fg C6 6$: AOBLEQ #16, I, 3$ ; 0758 
5E 2 OOCA PUSHL SP : 077 
0000' cf F d0¢¢ PUSHAB SD_P1 : 
00006 CF 2 FB 000D CALLS #27 CLI_GET_VALUE : 
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SORSCOMMAND 


v04-000 


2 | 
SORSCOMMAND 1b-sep-19 4 00:45:11 AX-11 Bliss-32 V4.0-74 Page 25) 
y042000 bat aet 1 9 10:41 YeoRI 2. SRCJSORCOMMAN.B32; 1 ° 83 | 
4 12 00198 BNEQ 26 : ; 
E D4 0619A CLRL = = (SP) : : 
0? 11 01 9¢ BRB 27$ : : 
50 0000" CF 9E OO19E 26%: MoV ORG, RO : : 
0 pp gia PUSHL RO é : 
3¢ AE 9F 001A5 278 PUSHAB OUT_FILE_DESC > 0800 | ; 
8 AE OF 148 PUSHAB INP-FILE~DESC : 0799 | ; 
000000006 90 06 FB 1A CALLS #117 SORSPASS_FILES + 0810 ; 
: D O18 MOVL RO STATUS : F 
7 38 E9 001B BLBC STATUS, 33$ > 0811 : 
09 0000" CF E1 00188 BBC #2, FLAGS+1, 28$ + 0816 : 
0000' CF 000000006 BF C8 186 BISL2 #SORSH STABLE PT : : 
09 0000" CF 5 £1 OO1C? 288: C #5, FLAGS+1, 29 + 0817 ; 
0000" CF 000000006 8F (C8 001CD BISL2 #SORSM_SEQ CHECK, OPT : : 
09 0000' CF 04 E1 00106 29$: BBC 4, FLAGS+T, + 0818 ; 
0000" CF 000000006 BF C8 001D¢ BISL2 #SORSM LOAD FILL. OPT : ; 
09 0000" CF 06 £0 OO1ES 30$: BS #6, FLAGS+1, 31$ t 0819 ; 
0000" CF 000000006 8F C8 O01EB BISL2 #SORSH_NODUBS OPT : ; 
50 0000" CF 01 03 EF OO1F4 31$:  EXTZV #3, #17 FLAGS+1, RO + 0820 ; 
oc BC 50 90 001FB MOVB RO. aSTATISTICS ; F 
SE DD OOIFF 32$ PUSHL SP > 0825 ; 
0000" CF 9F 00201 PUSHAB SD_P1 : 3 
00006 cf 02 FB 00 05 CALLS #27 CLI_GET_VALUE ; : 
0000v CF 00 FB 00200 CALLS #0, SET_INP_FMT > 0827 : 
AE sie Bua coup | |: 
7E 7C 0021 CLRQ =(SP) : ; 
7E 7C 00219 CLRQ -(SP) : 3 
7E 7C 00218 CLRQ  =(SP) : : 
7E D4 0021D CLRL = = (SP) : : 
28 «AE OF OO2TF PUSHAB INP_FILE_D + 0830 ; 
000000006 90 08 FB 002 : CALLS #117 SORSPASS_FILES ; 0834 ; 
D0 58 Es 60 C BLBS STATUS, 32$ > 0835 : 
00C2 31 O02°F 33$: BRW 51 : | : 
56 0000' CF dO 00 : 34$:  MOVL  KBF, R6 > 0857 | : 
29 02 88 BB 00588 MOVAB —2(Rb), RO p29 
59 50 DO 0023E MOVL RO. Q : 0858 : 
SA 66 3C 00241 MOVZWL (RO), R10 : 0859 : 
58 01 cE 00244 MNEGL #1, { : ; 
13 11 00247 BRB 3a$ : ; 
02 A? BS 00 49 35%:  TSTw g(P) ; 0861 | : 
9 19 0024c BLSS $ : F 
69 67 8 2 4 MOVC3 » (P), (Q) > 0864 ; 
59 8 ¢ ADDL2 > 0865 : 
2 BRB 3 : 0861 : 
66 B7 00 $$: DECW  (R6) > 0868 : 
57 08 C 9 37$:  ADDL2 #8, P : 0869 : 
E9 58 AF 26 8$:  AOBLSS R16, I, 358 : 0859 3 
4 0000' CF . is BBC #1, FLAGS, 45$ > 0874 ; 
5 0000" CF 5 £0 00266 BBS #5, FLAGS+1, 46$ > 0880 ; 
4 Ac Dp C PUSHL CONTEXT : 9901 F 
9 ' CF f F BLBC. FLAGS+1, 39% : ; 
0 ' ct E 4 OVAB WRK, RO : : 
0 DD 00279 PUSHL RO : : 


2 | 
SORSCOMMAND bes ep-1984 14 AX=1 Bliss -32 V4.0-74 Page SOR 
v04-000 14-5 nae 3B 90:48 0:41 SORT32. SRCISORCOMMAN..B 2:1 . 8 v04 

2 11 7B BRB 40$ : :] 
9 D4 8 7D 39$: CLRL -(SP : : 
99 9000" CF 9 Oo7F 40S: BLBC FLAGS #2, 41$ : : 1 
0 000" cr E 00 MOVAB TYP, R : 7] 
0 0D 9 PUSHL Rg F i] 
Oe 11 B BRB 42$ : i] 
£ b4 8b 41$: CLAL -(SP) : : 
7E 7c 4 F 42$: CLRQ =(SP) : :] 
9000" CF OF 91 PUSHAB INP_ALQ : i] 
0000" CF 9F 00295 PUSHAB OPT ; 7] 
0000' CF 9F 00299 PUSHAB LRL ; : 1 
0000" cf 33 0290 STB FLAGS+1 : 2] 
6 18 002A1 GEQ $ : 7] 
0000" CF DD 00 A3 PUSHL  KBF : : 1 
92 11 99 A RB 44$ : : 1 
E 04 O02A9 43$: CLRL -(SP) : : 1 
000000006 00 99 8 06 Ap 44$: CALLS #9, SORSBEGIN_SORT : :] 
A 11 0028 BRB o§ ; 21 
05 0000' CF €8 002B4 45$:  BLBS  FLAGS*1, 46$ F : 1 
0c 0000' CF €E9 00289 BLBC —- FLAGS+2, 47$ ; 2] 
000000006 SF Dp OOgBE 468: — PUSHL ACIS INVQUAL ; 2] 
FD24 CF 01 FB 002C4 CALLS , CAD_ERROR ; : 1 
04 002C9 RET F :] 
04 AC DD OO2CA 47$: PUSHL CONTEXT : ; 1 
7E 7C 002CD CLRQ. = SP) : 2] 
7E 7C OO2CF CLRQ = =(SP) ; i] 
0000" CF 9F 00201 PUSHAB OPT : 2] 
0000' CF 9F 002D5 PUSHAB LRL ; 2] 
0000" CF 95 00209 STB FLAGS+1 : :] 
06 18 002DD GEQ $ : : 1 
0000" CF DD O02DF PUSHL  KBF : 
02 11 00 E3 BRB 49 ; 
7E D4 OOZES 488: CLRL (SP) : 
000000006 00 08 FB OOge7 49$: CALLS #8, SORSBEGIN _MERGE ; 
SB 50 DO OO2EE 50S MOVL RO, STATUS ; 
04 58 €8 O02F1 BLBS STATUS, B35 : 
50 5B DO 002F4 51$:  MOVL STATUS. RO ; 
04 002F7 RET ; 
50 01 DO 002F8 52$: MOVL , RO ; 
04 002FB RET : 
; Routine Size: 764 bytes, Routine Base: S$CODE$S + 0013 
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y02000 12-8 08- 1 3be 90 T8541 SORT32.SRCISORCOMMAN.B 2:1 
76 9 ROUTINE UTILSNUMERVAL 
fee a DESC REF SBBLOCKCDSC$C_S_BLNI 
1 cee i ORS Ta 
4A 09 ? Functional Description: 
ae 0939 i This routine converts a string to a number. 
ae Beed It allows for unary minus, and decimal, hexadecimal and octal radices. 
176 0948 Formal Parameters: 
078 O34 DESC String descriptor 
780 094 i Implicit Inputs: 
781 b9c$ ! apt — 
1 9949 1 | one 
784 0950 1! Implicit Outputs: 
785 0951 1i ms 
ray 0985 | | ne 
788 0994 : Routine Value: 
a Bees Integer value of the converted string 
3 0938 ; Side Effects: 
794 0960 Signals CLIS_IVCHAR for invalid characters 
796 09 ine 
198 0964 COCAL 
799 0965 a ' Current character 
800 0 Vv, ! The computed value 
801 0967 he ! Length of string 
A ! Address of string 
80 0969 8, ! Base 
804 0970 N; ! Negation flag 


c 
ERR_(X) = (CMD_ERROR(X); RETURN 0) %; 
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808 0974 
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LE tL = .L-1) GEQ 0 DO 
SELECTONE (C = CHSRCHAR_ACA)) OF 
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985 ves .£ © "93 
9 EXITLOOP; 
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SORSCOMMAND 18-56 -1984 00:45:11 AX-11 Bliss-32 V4.0-74 Page 29) 
y042000 12-88-1382 9e Oia SORT32.SRCJSORCOMMAN.B32; 1 ° at 
30 2 01 1¢ CMPL #48 : 0983 | : 
19 OF BLSS S : ; 
39 D1 1 CMPL #57 : : 
14 00024 BGTR § : ; 
53 DO OA H 6 MOVAB =48(R2), V : 0985 ; 
42 1 A BRB 6$ + 0984 : 
25 D1 C 2$: CMPL § #37 ; 0988 ; 
1 if F BNEQ 6 : : 
4 D 0 1 DECL ; + 0990 ; 
52 87 9A 000 MOVZBL (A)+, C + 0993 : 
00000044 = BF : D1 00038 CMPL ¢ #68 : 0995 ; 
if} O3F BNEQ a : ; 
55 A 00 00041 MOVL #10, B : ; 
8 11 00044 BRB 6S : ; 
Q000004F  8F ‘ D1 00046 3$ CMPL séC,,:«#79 + 0996 ; 
55 88 dO dooce an a 
1A 11 00052 BRB 6$ : ; 
00000058 = &F 52 D1 00054 4$ CMPL =séC,,«#88 + 0997 : 
55 10 b6 oooep SOL 3 8 : 
0c 11 iitte BRB 6$ : ; 
2D 3 D1 00062 5$ CMPL ss, «#45 + 1005 : 
12 9006 BNEQ «9 : : 
56 56 ce 0067 MNEGL ON, N + 1007 ; 
AI 19 OO06A BLSs. ss: 1$ : 1008 3 
30 11 0006C BRB 9$ : ; 
54 (07 0006E 6$ cere ee > 1015 ; 
43 19 00070 BLSS 11% : : 
52 87 9A 90072 MOVZBL (A)+, C t 1017 ; 
30 2 01 0007 CMPL ss, #48 + 1019 : 
OA 19 00078 BLss ss 7'$ : ; 
39 32 D1 0007A CMPL ¢ #57 : ; 
g 14 0007D BGTR § ; F 
52 0 ¢2 0007F SUBL2 #48, C : : 
15 11 00082 BRB $ : ; 
00000041 8F 52 D1 90084 7$: CMPL =séC,«#65 + 1020 ; 
L : : 
00000066 BF $3 Oy 00080 as 
: 37 (3 90096 ec) 25s, c 
28 2 D1 00099 8s: cMPL «6C, B > 1023 : 
D iF 999¢ BLSSu.«16$ ; : 
000000006 8F DD 0009E 9s: PUSHL #CLI$_IVCHAR : ; 
FC48) OCF O1 FB DOAK CALLS “, CAD_ERROR ; ; 
50 53 23 C5 S048 10$: MULLS B, V, RO > 1024 : 
§ 50 C1 OOOAF ADDL rb, Vv : ; 
11 0083 BRB § > 1015 : 
53 $ C4 008 11$ MULL2 R3 : 1027 : 
50 DO 00088 MOVL RS, RO ; : 
04 00088 RET : : 
50 b4 Bc 12$: CLRL RO > 1029 : 
4 OO00BE RET ; : 


; Routine Size: 191 bytes, Routine Base: $CODE$ + 030F 
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SORSCOMMAND 1h-sép-1984 00:45:11 Bliss-32 v4.0-7 2 1 
y02500" ence abe SSitoray Lemar bo°she sok chnntn 6$251 age 43} 


: 865 1030 1 ROUTINE KEYVALU = : 
; ¥¢] 1031 1 ; 
; 86 1938 1 !+4 ; 
; oe 18 ? : : Functional Description: | ; 
; 50 19 5 : This routine breaks a string into a keyword and a keyword value. | : 
3 Hh; 10 5 1 ' Formal Parameters: ; 
; 87 1038 1! : 
> 874 1039 1! NONE ; 
HL FRE YT seottcte trou ; 
3 1 mp lic nputs: 3 
; B79 ek 1! : 
; 878 1043 1! STRING_DESC String descriptor of source : 
; 879 1044 1! ; 
; 880 1045 1 ! Implicit Outputs: . 
; 881 1046 1! : 
; 88 1047 1! SUBVAL _DESC String descriptor for storing value ’ 
; «88 1048 1! ; 
3; 884 1049 1 ! Routine Value: ; 
; 885 1050 1 ; 
; 886 1051 1! True iff the source string contained a value. ‘ 
; 887 1926 13 : 
; 888 1053 1! Side Effects: : 
; 889 1054 1! : 
; 890 1055 1! Signals CLIS_IVVALU for zero-length values : 
; 891 1996 1! : 
; 1057 1 i- ; 
; 89 1058 ” BEGIN : 
3; 894 1059 BUILTIN : 
; 895 1060 LOCC : 
> 896 1061 NULLPARAMETER; : 
: 897 1996 A : 
: 898 106 L: WORD; : 
; 899 1064 ; 
; 900 1065 = .STRING_DESCCDSC$W_LENGTH]; : 
: 901 1066 ; 
3 206 1067 Beet pesisTeR, RO = 0 : 
3 bat 13e8 a LOCC( = EF ( o he OE TRING _désctoscsa. POINTER]; RO, R1 ); : 
; 905 1090 Loccé taRERC ES"), L, .STRING_DESCCOSCSA_POINTER]; RO, RI); 3 
; 906 1071 L = .L - .RO; : 
; 907 1976 3 3 
; 908 107 3 
3 4 1oee SUBVAL_DESCCDSC$W_LENGTH] = 0; ! Indicate no value seen yet : 
3 «911 1076 Pe es ey - STRING_DESCCDSC$W LENGTH) THEN RETURN FALSE; : 
: aig rr +1; ! Remove the colon or equals . 
: 914 1079 SUBVAL_DESCCDSCSA_POINTER] = .STRING_DESCCDSCSA_POINTER] + .L; 3 
3 a2 1981 SUBVAL-DESCCDSCS$W_LENGTH] = .STRING_DESCCOSC$W-LENGTH] = .L; : 
3 A 19 $ IF .SUBVAL_DESCCDSC$W_LENGTH] EQL 0 THEN CMD_ERROR(CLIS$_IVVALU); 3 
; 319 19 RETURN TRUE; 

3 ase 1085 

: 921 10 


END; 
| 


SORS COMMAND 
v04-000 


63 
63 


04 


; Routine Size: 73 bytes, 


1-60-1984 


opt 


334 


003C 00000 KEYVALU: .WORD 
5 i fl CF 3 009 MOVAB 
4 F AS 3 88 MOVZWL 
§ 54 8B B MOVW 
FC =6AS «(D0 BOt5 MOVL 
A 3A 0001 LOCC 
Q A2 B818 SUBW2 
D SA 1 LOCC 
5 Q A2 00010 SUBW2 
$3 B4 00020 CLRW 
54 2 B81 000 CMPW 
1F 1E€ 000 BGEQU 
5 Be 00 INCW 
29 5 C 00029 MOVZWL 
P) 2 C1 0002C aps 
54 ‘3 0031 SUBW 
ge 1 838 ; BNEQ 
000000006 8F DD 000 PUSHL 
FBFO OCF 01 FB 000 CALLS 
50 01 00 94h 1$: MOVL 
04 0004 RET 
50 04 00046 2$: CLRL 
04 00048 ET 


Routine Base: S$CODE$ + O3CE 


5 
0 


1 YAX=11_ Bliss-32 v4.0 
RC 
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Save R2,R3,R4,R5 
SUBVAL_DESC, R5 
STRING DESC, R4 


7 ee 

STRING DESC+4, R3 
#58, L> (R3) 

RO, L 

#61, L, (R3) 

RO, L 

SUBVAL_DESC 

, R4 

$ 
L 
L, RO 

RO, R3, SUBVAL_DESC+4 
L, R4, SUBVAL_DESC 
#CLIS_IVVALU 

#1, CAD_ERROR 

#1, RO 


RO 
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ROUTINE NUMERIC_PARSE 
we REF SBBLOCKCDSC$C_D_BLNI 


"Funct tonal Description: 
This routine converts an ASCII number into a binary value. 

Formal Parameters: 
DESC The address of the ASCII string descriptor. 

Implicit Inputs: 


STRING_DESC Used for issuing the "XXX" keyword requires a value"’ 


' 

i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
diagnostic. 
Implicit Outputs: 

None. 

; Routine Value: 

Converted value 

i Side Effects: 

None. 

in 


BEGIN 
BUILTIN 
NULLPARAME TER; 


IF .DESCCDSCS$W_LENGTH] EQL 0 
THEN !' No value where one was expected 


BEGIN 
CMD_ERROR(SOR$_SHR_NOVALUE, 1, STRING_DESCCBASE_]); 
RETORN 0; 
END; 
Parse the value 
RETURN UTILSNUMERVAL (DESCCBASE_J); 


0000 00000 NUMERIC_PARSE: 
.WOR Save nothing 3 
04 BC B5 00002 TSTW aDESC 3 7 


<v 
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; Routine Size: 


38 bytes, 
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FED6 =CF 


Routine Base: 


13° 12 
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1 0D 

; 00101104 F pe 
5 if 

04 AC DD 
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; 973 11 $ 1 ROUTINE SET_SPEC: NOVALUE = ; 
: 974 11 1 ; 
; 975 11 5 1 !44 : 
: are 11 1 ! Functional Description: : 
3; oF 1140 1! : 
; 978 1141 1°! This routine calls the CLI to parse a file name and stores it in the ‘ 
; 979 1it8 1! sort parameter area. : 
3 oR 1143 1! : 
; 981 1144 1! Formal Parameters: ; 
3 oae 1145 1! : 
. 9 1148 1! None. : 
; > 1147 1! ; 
> 985 1148 1! Implicit Inputs: ‘ 
.. = 1149 1! : 
: 98 1150 1! None. : 
; 988 39) 3 1 : 
; 989 1126 1! Implicit Outputs: . 
; 990 11535 1! ; 
3; «991 1154 1! None. . 
3 336 1155 1! : 
; 99 1156 1 ! Routine Value: ; 
: 994 1157 1! ; 
; «4995 1158 1! : 
; 996 1159 1 ! Completion Codes: ; 
; 997 1160 1! ; 
; 998 1161 1°! None. . 
; 999 1106 7% : 
; 1000 1165 1! Side Effects: . 
; 1001 1164 1! : 
3 ISne 1165 1! None. ° 
3; 100 1166 1! : 
3; 1004 1167 1 !<- : 
; 1005 1168 1 ° 
3; 1006 1169 BEGIN : 
3 1007 1170 LOCAL : 
: 1008 1171 P: REF $BBLOCK, ‘ 
3; 1009 1176 STATUS; : 
: 1010 117 : 
: 1011 1174 P = STRING_DESCCBASE_); , 
: ols 1175 IF NOT CLI_GET_VALUET SD_SPEC, PCBASE_J ) ° 
3; 101 1328 THEN : 
: pie Wr P = S$DESCRIPTOR(STR_DEF_SPECFILE); 

: 4 4 1123 STATUS = SORSSPEC_FILE(PCBASE_J, 0, .CTX); 

3: 1018 1181 IF NOT .STATUS THEN RETURN CMD_ERROR(.STATUS); 

3; 1019 1182 1 END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
54 55 50 46 49 246 53 59 53 anh P.ABT: et \SYSSINPUT\ : 


O2A9 
0000009 09 


AC P.ABS: .LONG : 
0000000" 0028 -ADDRESS P.ABT : 


N 2 
SORSCOMMAND 16-Sep-1984 00:45:11 VAX-11 BL isg-32 V4.0 ° 
¥04-000 eRe ran ere PUD Poe hg Pry et aoe 478 


-PSECT SCODES,NOWRT,2 
0004 00000 SET_SPEC: " 


.W Save R2 : 1136 
52 0000' cf 9E 00 MOVAB STRING_DESC, P + 1174 
ee pp 0 PUSHL P + 1175 
0000" CF 9F 09 PUSHAB SD_SPEC : 
0000G CF 3 Fe CALLS 4% fL1 GET VALUE : 
93 f 1 BLES ssa : 
2 9900" CF 9E 0001 MOVAB P.ABS, P + 1177 
' cr DD OOO1A 1$: PUSHL CTX + 1179 
D4 0 1 CLRL =(SP) : 
52 DD 000 PUSHL P : 
000000006 00 g FB 00 CALLS #3, SORSSPEC_FILE ; 
07 0 € 99 LBS STATUS, 2$ + 1181 
50 DD 000eC PUSHL STATU ; 
FB90 = sCF 01 FB 000 : CALLS #1, CMD_ERROR ; 
04 00033 28: ET + 1182 


; Routine Size: 52 bytes, Routine Base: S$CODE$ + 043D 
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-DELBOTH; SORS_DELBOTH); 


SIZE THEN FLAGSCIOS_BOTH] = TRUE; 


BOTH = (EXTERNAL LITERAL SORS 
This routine calls the CLI to parse a file name and stores it in the 


The address of the qualifier descriptor block. 
if NOT CLI_GET_VALUE( SD_DUPL, STRING_DESCCBASE_J ) THEN RETURN; 
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3 
SORSCOMMAND 1$-se 1984 00:45:11 AX-11 Bliss-32 V4.0-74 Page 38 
v04-900 14-Se 1982 13340541 SORT32.SRCJSORCOMMAN.B52; 1 - (16) 


; 1074 1235 1 ROUTINE SET_OUT_FMT: NOVALUE = 

3; 1075 1 : 1 

3 178 1 1 le4 

: ee : . : Functional Description: 

; 1079 1240 1! This routine sets the output file record format in the output file 
: 1080 1241 1! parameter area. 

3; 1081 1 m4 1! 

: 1OR8 1245 1 ! Formal Parameters: 

1082 seg 1 i The add f the qualifier descriptor block; 

: ! e address of the qua er descriptor block. 

: 1085 1266 1 | ye, 
3 1086 1247 1! Implicit Inputs: 

; 1087 1248 1! 

; 1088 1249 1! None. = 

3 1089 1250 1! pas 

; 1090 1251 1 ! Implicit Outputs: —— 

: 1091 1 26 1! os 

; IONE \$2 ..% None. 

3: 109 1254 1! 

3 1094 *1255 1! Routine Value: 

; 1095 1 2§ 1! 

: 1096 bol aw None. 

3; 1097 1258 1! 

: 1098 1259 1 ! Side Effects: 

3; 1099 1260 1! 

: 1100 1261 1! None. 

: 1101 1508 zz 

3 1108 1263 1 !-- 

: 110 1264 1 

3: 1104 1265 BEGIN 

3: 1105 1506 

3 1106 1267 KEY_TABLE_(STR_OPT_OUTFMT); 

3 1107 1268 

3; 1108 1269 LOCAL 

3 1109 1270 NUMBER_ADR: REF VECTORC,WORD]; 

3; 1110 1271 

31111 1 % CRO 

: BE 4 127 GET_RFM_(KIND,VALU) = 

s 393 M 1274 

3 1116 M 1275 ZIF NOT ZNULL(KIND) 

3 1115 a1 6 <TH 

: 13t8 : : g RFM = ZNAME('FABSC_',KIND); 

: 1118 4 127 IF .SUBVAL_DESCCDSC$W_LENGTH] NEQ 0 ' If there is a value 
3 1119 M 1280 THEN ! Get optional number 
: 1120 M 128) STORE_(VALU, .RSLT); ! Get Max Record Size 
: 1121 1 Ht END 2; 

St nt 

> 1124 1285 ! Determine which format was specified and set the appropriate 
: i 5 : ; } attributes in the output file area. 

3: 11 5 1 : WHILE CLI_GET_VALUE(SD_FORM, STRING_DESCCBASE_}) DO 

: 1128 1 BEGIN 

3 1129 1 LOCAL 

: 11 1291 LOOKUP, 


> 3 
16-Sep-1984 00:45:11 YAX=11 Bliss-32_v4.0-74 Page 39. 
1e=8ep-1986 13:10:41 — ESORTS2°SRESSORCOMMAN B82; 1 29 (18) 


eae 


— 


RSLT; 
Look up the keyword 
LOOKUP = LOOKUP_KEY(KEYWORD_TABLE); 
If there is a value, get it. 
. » SUBVAL_DESCCDSC$W_LENGTH] NEQ 0 


711 129 | : 
3 11 § 129 F 
: 11 1294 3 
> 1134 1295 ; 
: 1135 129 : 
, 3% ° 129 3 
: 11 1298 : 
3; 1138 1299 | ; 
; 1139 1300 | ; 
; 1140 1301 $ 
: 1141 i 0 RSLT = NUMERIC_PARSE (SUBVAL_DESCCBASE_J); | : 
: 1128 1 bz CASE .LOOKUP FROM 0 TO TABLE_SIZE-1 OF ; 
> 1144 1305 eT ; 
: 1145 1306 K_FIXE): GET -REM_ (FIX, MRS); : 
> 1146 1307 K-VARIJ: GETIRFM~(VAR.MRS); : 
: 1147 1308 K-CONT]: TTRENT CV SMRS): ; 
> 1148 1309 K7SIZEJ: TIRFM-( = FSZ): : 
: 1149 1310 K"BLOC]:_ GETIRFMT( BLS): : 
3: 1150 1311 ODTRANGE): 0; : 
3 1151 136 TES 3 
; 1136 131 END; 3 
s 415 1314 F 
3 1133 1ai2 Check for specifying SIZE and something other than CONTROLLED : 
: 1156 1319 5 IF_.FSZ NEQ 0 AND .RFM NEQ 0 AND .RFM NEQ FABSC_VFC : 
3; 1157 1318 THEN 3 
: 1158 1319 : CMD_ERROR(SOR$_KEYAMBINC); : 
3; 1159 1320 3 
: 1160 1321 1 END; ; 
-PSECT S$PLITS,NOWRT,NOEXE,2 
44 45 58 49 46 OS 002B4 P.ABV: .ASCII <5>\F IXED\ : 
45 4C 42 41 49 52 41 36 08 OO2BA P.ABW: ASCII <8>\VARIABLE\ : 
44 45 4C 4C 4F 52 54 GE 4F 43 OA 002C3 P.ABX: ASCII <10>\CONTROLLED\ : 
45 SA 49 53 04 00 cE P.ABY: .ASCII <4>\SIZE\ ; 
45 SA 49 53 SF 48 43 4F 4C 42 OA 0 p P.ABZ “ASCH <10>\BLOCK_SIZE\ ; 
00000005 00 5 LONG : 
00000000" 00000000" 00000000* 00000000" 00000000" 0024 P.ABU: . ADDRESS P.ABV, P.ABW, P.ABX, P.ABY, P.ABZ ; 
KEYWORD_TABLE= P.ABU | 
-PSECT $CODES$,NOWRT,2 | 
| 
000C 00000 SET_OUT_FMT: 
-WORD Save R2,R3 : 123 
53 0000" CF 9€ 0000 MOVAB  SUBVAL_DESC, R3 : 
A3 OF 0 1$: PUSHAB STRING DESC > 128 | 
F OF A PUSHAB SD_FORA : 
00006 CF ; FB CALLS #27 ctl GET_VALUE ; 
03 F 01 BLAS SséiRR : 
0082 31 00016 BRW 14§ ; 


z 

SORSCOMMAND these =1986 00:45:11 AX-11 Bliss-32 V4.0-74 Page 
900.000 1278 08- 1 3be Lee YeORT 2.SRCJSORCOMMAN.B32;1 . ae) 
0000" CF 9F 00019 2$: PUSHAB KEYWORD_TABLE : 1296) 
0000Vv ct pi F 8 CALLS af LOORUP_KEY : | 
2 D MOVL RO. LOOKUP : 
8 TSTW SuBVAL_DESC ; 1300) 
0 BEQL : 
3 Dd 00009 PUSHL + 1302 
0 ae 8) Te OOOSe 3s TUT ttt ia ee + 1306 

0026 0018 0012 000¢ 900 i$: WORD 6$-48,- : : 

0046 003¢ $-4$.- : 
8$-4$,- : 
10$-48,- ; 
11$-4$ : 

(7 11 00035 5$: BRB 1$ : 
09 «AB 601 90 00040 6$: MOVB = #1, -RFM > 1306 
OA 11 00044 BRB 9$ : 
09 «AB 02 90 00046 7$ MOVB #2, RFM : 1307 
04 11 O004A BRB 9$ : 
09 «AB 03 90 0004C 8$ MOVB =s#3,,_-RFM : 1308 
6 83 00050 9$ TSTW  SUBVAL_DESC : 
B3 13 0005 BEQL =sés18 : 
OE a3 50 BO 00054 MOVW 72, MRS F 
28 11 00058 BRB 1 : 
63 B5 0005A 10$:  TSTW  SUBVAL_DESC + 1309 
Ad 13 0005¢ BEQL : 
51 50 pd 0005E MOVL SLT, 2 : 
30 «AB 51 90 00061 MOVE F : 
51 51 08 00 ED 00065 cMP7v #0, #8, 2, 2 : 
9B 13 O006A BEQL F 
7E D4 0006C CLRL = =( SP) : 
51 DD OO06E PUSHL 2 : 
02 Dd 0007 PUSHL #2 : 
001C1014 8F DD 90072 PUSHL #1839124 : 
18 11 0007 BRB : 
4 83 Q007A 11$:  TSTW  SUBVAL_DESC : 1310 
89 13 0007C BEQL=Sséd1S : 
Oc AB 50 BO 0007 MOVW 7, BLS : 
50 50 10 00 FD 0082 128:  cmPpzv #6, #16, 2, 2 ; 
8» 13 0008 BEQL 5 : 
: p& 00089 CLRL =(SP) : 
50 DD 00088 PUSHL 2 : 
02 dD 0008D PUSHL #2 : 
001¢102¢ af DD O008F PUSHL #1839148 : 
FAFS CF 4 FB 04 13$: CALLS #4, CMD_ERROR 3 
04 oA RET 3 
30 ad 9 00098 148: STB FS2 > 1317 
18 13 000 BEQL =s«415$ : 
09 a3 95 000A TSTB = REM : 
111 A BEQL «sé : 
03 09 a3 91 OOOA CMPB OREM, #3 : 
B 13 OOOA BEQL =:«i15$ : 
001¢8134 8F DD OOOAB PUSHL #1868084 > 1319 
FADS CF 1 FB 000B1 CALLS #1, CMD_ERROR : 
04 000B6 15$: ET : 1321 


3; Routine Size: 183 bytes, Routine Base: S$CODE$ + 0471 
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! Determine which type was specified and set the appropriate attribute 
; in the sort parameter area. 


CLI_GET_VALUE(SD_PROC, STRING_DESCCBASE_}); 


LOOKUP = LOOKUP_KEY(KEYWORD_TABLE); 
IF .LOOKUP LSSU~TABLE_SIZE THEN TYP = .TABC.LOOKUP); 


NOUS WN OOONOU SW 


; 1168 1 ¢ 1 ROUTINE SET_PROC: NOVALUE = ‘ 
; 116 1 1 > 
3 1164 1324 1 !44 : 
; 1165 5 1 { Functional Description: | : 
: 24 : : 1 } This routine sets the sort type to perform in the sort parameter area. | ; 
: 1169 1 § 1 ! Formal Parameters: : 
: 1170 1330 1! ; 
3 Ba ; 1 ! The address of the qualifier descriptor block. : 
3 1178 1 g 1! Implicit Inputs: ; 
: 1174 1334 1! ; 
; 1175 ih+)> ae None. ‘ 
: 1176 1336 1! : 
31177 1337 1°! Implicit Outputs: ; 
: 1178 1338 1! . 
3: 1179 1339 1! None. : 
; 1180 1340 1! : 
; 1181 1341 1 ! Routine Value: : 
3 1188 1 ri} 7? ° 
: 118 1345 1! None. : 
3; 1184 1344 1! ; 
: 1185 1345 1 ! Side Effects: : 
; 1186 1346 1! : 
3 1187 1347 1! None. ‘ 
> 1188 1348 1! ; 
3; 1189 1349 1 !-- ; 
; 1190 1350 1 . 
3 1197 1351 BEGIN : 
3 136 1326 : 
: 119 135 KEY_TABLE_(STR_OPT_PROCESS); : 
3 1194 1326 . 
3 1195 1355 : 
3; 1196 1356 TAB: VECTORCTABLE_SIZE,BYTE) ° 
; 1197 1357 PSECT (SCODE$) PRESET ( : 
: 1198 1358 S34 SORSGK_RECORD, ‘ 
; 1199 1359 K-TAGJ= SORSGK"TA : 
; 1200 1360 K-ADDRJ= SORSGK-ADDRESS, ; 
; 1201 136 K_INDEJ= SORSGK_INDEX); ° 
: 1 oe 136 : 
: 120 136 LOCAL ‘ 
; 1204 136 LOOKUP; ° 
3 1$93 136 : : 
: 1206 136 ! Indicate that this qualifier was seen : 
: 1207 136 : : 
: 1208 1 FLAGSCIOS_PROC) = TRUE; : 
: 1209 1 : 
3 1 1 : 
s 1 1 : 
s § 1 : 
3; 1 1 5 
3; 1 1 + 
3 Y 1 : 
3 1 1 : 
3% 1 3 
3; 1 1 ’ 


Pononofonofononofy 
Ok ed ed ed td ot 
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IF .SUBVAL_DESCCDSCSW_LENGTH] NEQ 0 


SORSCOMMAND -1984 00:45:11 AX-11 Bliss-32 V4.0-7 Pp 43 S 
9042500 mts Tae Ee CPE i hg pe Pe erie Poe 29e 7) V 
: 1219 1379 THEN lue wh 
3 Hi Hs ; RETURN CMD_ERROR(SOR$_SHR_SYNTAX, TRING DEScLOASE Se 
: 1222 1382 END; 
006 00* 00* 00* 00528 TAB: <BYTE <SORSGK_RECORDE255>, <SORSGK_TAG&255>, -—_; 
<SORSGK-ADDRESS&255>, SORSGK~ INDEX : 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


| 
| 
«ACB: .ASCII <6>\RECORD\ ; 
eACC: ASCII <3>\TAG\ ; 
ACD: .ASCII <?/>\ADDRESS\ ; 
ACE: .ASCII <5>\INDEX\ 


44 52 4F 43 45 2¢ 06 O02F8 P 3 
47 43 54 0 00 FF OP ; 
53 53 45 52 44 66 4) 0303 P. ; 
58 45 44 4E 49 05 00308 P. ; 
99 11 -BLKB 
00000004 0514 “LONG 4 : 
00000000" 00000000" 00000000' 00000000* 00318 P.ACA: ‘ADDRESS P.ACB, P.ACC, P.ACD, P.ACE : 
KEYWORD_TABLE= P.ACA 


-PSECT $CODE$,NOWRT,2 
0004 00000 SET_PROC: 
WORD 


. Save R2 ; 1322 

52 0000" CF 9E 90002 MOVAB STRING DESC, R2 ; 
3E = A 01 88 0000 BISB2 #1, FLAGS+2 3: 1368 
52 DD 00008 PUSHL R2 3 1373 

0000° CF 9F 0000D PUSHAB SD_PROC ; 

0000G CF 02 FB 00011 CALLS #2, CLI_GET_VALUE 3 
0000" CF 9F 00016 PUSHAB KEYWORD” TABLE 3 1375 

0000v CF 9} FB QOOO1A CALLS #1, LOORUP_KEY : 
04 0 D1 O001F CMPL OOKUP, #47 3 1376 

06 1€& 00022 BGEQU : 

2D = A2 D4 AF4O 90 B08 4 MOVB TABCLOOKUP], TYP $ 
08 A2 Be 002A 1$: TSTW SUBVAL _DESC ; 1378 

OF 1 308 D BEQL 2s 3 
2 DD 0002F PUSHL R2 : 1380 

01 DD 00031 PUSHL : 

001C10FC Be DD 000 3 PUSHL #1839356 i 

FA96 = CF 3 FB 000 CALLS #3, CMD_ERROR : 
04 0003E 2$: RET 3 1382 


; Routine Size: 63 bytes, Routine Base: $CODE$S + 052C 
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ROUTINE SET_INP_FMT: NOVALUE = 


e¢ 
! Functional Description: 


This routine sets the input file record format in the input file | 
parameter area. 
| 


Formal Parameters: 
The address of the qualifier descriptor block. 
Implicit Inputs: 
None. 
Implicit Outputs: 
None. 
Routine Value: 
None. 
Side Effects: 
None. 


BEGIN 
KEY_TABLE_(STR_OPT_INPFMT); 


Get values and store them away. 
WHILE CL1_GET_VALUE (SD_FORM, STRING_DESCCBASE_J) DO 


POPOPOPIPOPIPINONMIPIPONoPonononononononon»: 


oa PAAEXAEMMAMNMAMNNVI SS SPELL EP 


CASE eae ileaanaen tastes FROM 0 TO TABLE_SIZE-1 OF 


K_RECO): 
a NUMERIC_PARSE (SUBVAL_DESCCBASE_})); 
~ STORE 

TRAN 


io 
oo 


C(INP_ALQ, .INP_ALQ + NUMERIC_PARSE(SUBVAL_DESCCBASE_})); 
Cou GET: 
TES; 


a ee ee ee ee ee ee ed a aed ad od od od od dd 
ei ee ee ee ee ee ee ee ee ee ee ee ee ee ee es 


PRR RRR RR RRR REE PEEP PEPER PEPPER EPP PE EE 


WIAA AIWWNIIP RIPPIN NIPININID 2 OOO OO SS COOCSCOO 


PIRI NAAN AANA NIA PIPNINININII IID tt st st st st st tt nt tk tt tt tt 


MEAN —OOONOAUE WN" OOONOUE WN" OOONOu 


PoronoroPorfory 
NANNY 
Ounfwn— 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


; Ea 
he haa 18-Sep-1984 90:43:11 AX-11 Bliss-32 V4.0-74 Page 45 


-Sep-1 SORTS2.SRCJSORCOMMAN.B52;1 (18) vo 
45 SA 49 53 SF 65 4C 49 46 09 P.ACG: .ASCII <9>\FILE_SIZE\ : 
45 SA 49 34 SF 4G af 4F rk 23 3§ 88 % P-ACH: ASCII icant F 
00000 4 LONG : 
00000000° §b090008" 44 P.ACF: ADDRESS P.ACG, P.ACH : 
KEYWORD_TABLE= P.ACF 


.PSECT $CODES,NOWRT,2 
0004 00000 SET_INP_FMT: 
WORD 


Save R2 ; 1383 
52 0000" CF 9€ 9002 MOVAB SUBVAL_DESC, R2 : 
FB A2 9F 00007 1$: PUSHAB STRING DESC + 1420 
0000" CF 9F OO00A PUSHAB SD_FOR : 
00006 CF 98 FB 000 CALLS #2, CLI_GET_VALUE : 
44 E 001 BLBC : ; 
0000" CF SF 00016 PUSHAB KEYWORD_TABLE + 1423 
0000v CF 9} FB QOO1A CALLS #1, LOORUP_KEY : 
01 0 0 CF O0O1F CASEL RO. #0, #1 F 
0006 002A 0023 2$: WORD 45 $.- ; 
: 11 00027 BRB i$ : 
52 DD 00029 38: PUSHL R2 + 1426 
FE7C CF 01 FB 900 : CALLS #1, NUMERIC_PARSE ; 
1A 50 B0 000 OVW 2, LRL : 
50 50 10 00 ED 00034 cmPz7v #6, #16, 2, 2 ; 
CC 13 00039 BEQL a : 
7E 04 00038 CLRL = = (SP) : 
50 DD 00030 PUSHL 2 ; 
02 DD 0003F PUSHL #2 ; 
001¢102C 8F DD 00041 PUSHL #1839148 ; 
FAG9 = CF 04 FB 00047 CALLS #4, CMD_ERROR ; 
04 0004C¢ RET : 
52 DD 00040 4$: PUSHL R2 > 1428 
FES8 CF 01 Fe O04F CALLS #1, NUMERIC_PARSE é 
20 A2 50 CO 00054 ADDL2 RO. INP_ALQ : 
AD 11 00058 BRB 1$ ; 1420 
04 0005A 5$ RET > 1435 


; Routine Size: 91 bytes, Routine Base: S$CODES + 0568 
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1278 ROUTINE NOT_WORK: NOVALUE = 


'e4¢ 
' Functional Description: 


This routine is called if the user specifies /NOWORK_FILES 
Formal Parameters: 

The address of the qualifier descriptor block. 
Implicit Inputs: 


SESS LLLS LLL ES 


SSS SSNS SNA AAA AA AA ADA MII BB BE PEPE EWA 
NAVE WN $9 ODONAU EWN O ODNAUE WN SOOO NAUE WN OOO 


None. 
Implicit Outputs: 
None. 

Routine Value: 


oooooocooeo DWDOOOOOOOOMOMMOmomcmoc-~) 
ee ee a ee ee a a a a a ed a dd 


= FI.NIAIAIANIAIAIRIPONPUDINY tt tt 0 


kD me a a a td ds — + 4 4 2s 4s a — 2 2 as = a 2 2 “ss = as 1 


4 
4 
4 
4 
§ 4 
4 
2 4 
§ 4 
4 
§ ? None. 
3 4 Side Effects: 
3 4 
; 4 None. 
4 
3 4 itl 
3 4 
: Z BEGIN 
4 re Make sure that the user explicitly requested no work files. 
311 4 IF CLI_PRESENT( SD_WORK ) EQL CLIS_NEGATED 
$1§ 4 THEN 
31 4 BEGIN 
314 4 : 
$12 ri Act as though the user specified 0 work files. 
317 4 FLAGSCIOS_WORK] = TRUE; 
318 4 WRK = 0; 
319 4 END; 
320 4 END; 
0000 00000 NOT_WORK: 
-WORD Save nothing : 1436 
0000" CF 9F 00002 PUSHAB 3). K 3: 1469 
0006 cr 1 FB 00006 CALLS CLI_PRESENT F 
00000000G 8F 0 D1 CMPL RO; #CLTS_NEGATED : 
9 is 1 BNEQ 1$ 3 
0000" 1 3 1 BISB2 #1, FLAGS+1 3: 1475 
0000° CF 94 19 CLRB WRK : 1476 
04 1D 1$: RET > 1478 
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ROUTINE SET_WORK: NOVALUE = 


le 
' Functional Description: 


This routine gets the number of work files to use. 
Formal Parameters: 

The address of the qualifier descriptor block. 
Implicit Inputs: 

None. 
Implicit Outputs: 

None. 
Routine Value: 

None. 
Side Effects: 

None. 


BEGIN 


! If there is a value, store it into WRK 
; Otherwise, let the sort routines default this value. 


iF CLE_GET VALUE ( SD_WORK, STRING_DESCCBASE_J ) 
STORE_(WRK, NUMERIC_PARSE (STRING_DESCCBASE_J)) 
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WWIWWIAWANAA a 
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HI | “QOOCOCOOCOCOCOCOCO OOOO OOO OOO WWMM ccocDcDCDgO~ 
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ELS 
FLAGSCIOS_WORK) = FALSE; 
END; 
0004 00000 SET_WORK: 
.WORD Save R2 : 1479 
52 0000" CF 9€E 0000 MOVAB STRING_DESC, R2 : 
§2 DD 000 PUSHL R2 > 1513 
0000" CF 9F 000 PUSHAB sp _WORK ; 
0000G CF Fe 0 CALLS - CLI_GET_VALUE F 
24 E 1 BLBC R ~ : 
DD 0001 PUSHL R + 1515 
FE17 CF 1 fe 1 CALLS - NUMERIC_PARSE ; 
2¢ Ae 0 9 0016 MOVB WRK : 
50 50 0 0 ED 0002 CMPZV 4 #8, 2,2 ; 


33 
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16 13 3 BEQL =. ; 
pd CLRL = (SP) ; 
50 OD 9 PUSHL 2 : 
0 DD 00008 PUSHL #2 ; 
001€1014 8F DD 000 p PUSHL #1839124 : 
FOES ~=sCF 04 FB 900 : CALLS #4, CMD_ERROR : 
3D A2 01 gr SOS 1$: BICB2 #1, FLAGS+1 : 1517 
04 00030 2$: RET + 1519 


; Routine Size: 62 bytes, Routine Base: S$CODES + 05E4 
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ROUTINE SET_BUCK: NOVALUE = 


144 
} Functional Description: 


This routine gets the bucket size to use. 
Formal Parameters: 
The address of the qualifier descriptor block. 


PISS SESSS 


VIEWN (OO OONOUS WN" OODONOU 


Implicit Inputs: 
None. 
Implicit Outputs: 
None. 

Routine Value: 


ODWDDnoynnn~ 


None. 
Side Effects: 
None. 
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BEGIN 
CLI_GET_VALUE( SD_BUCK, STRING 
STORE (BKS, NUMERTC_PARSE (STRI 


Be Ge Se Se Ge Se Se Ge Ge Ge Ge Se Ge Se Se Se Se Se Se Se Ge Se Se Se Se Sees Se Se Setsetee 
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DID BS BB BEE EE EWI WWIWwiwiunroroporeporornorornorn 
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0000 00000 SET_BUCK: 
WO 


RD Save nothing 
0000" CF 9F 00002 PUSHAB STRING DESC 
0000' CF 9F 00006 PUSHAB SD_BUCR 
00006 CF 02 FB OO00A CALLS #2, CLI_GET_VALUE 
0000' CF 9F 00 PUSHAB STRING DESC 
FDDD CF 1 § 1 CALLS #1, NUMERIC_PARSE 
0000" CF 0 90 0001 OVB 2, BKS 
50 50 68 0 ED 0010 cmpzv #0, #8, 2, 2 
11 0 EQ. ~Ss«éd1S 
fe D4 00024 CLRL = = (SP) 
50 DD 000 6 PUSHL 2 
02 DD 6 PUSHL #2 
001€1014 8F DD A PUSHL #1839124 
FOA9 CF 04 FB 90 0 CALLS #4, CMD_ERROR 
04 00035 1$: RET 


; Routine Size: 54 bytes, Routine Base: SCODE$ + 0622 
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AX=1 


~ALQ, 


This routine gets the output file allocation to use. 
( 


The address of the qualifier descriptor block. 
R 
R 


None. 
None. 
None. 


BEGIN 
CLI_GET_VALUE( $ 
RE_(OuT 


Implicit Outputs: 
STO 
END 


Functional Description: 
Implicit Inputs: 
None 


ROUTINE SET_ALLO: NOVALUE = 
Formal Parameters: 


LL IOI 


i 


LALA eo ee eee ee ee ee ee ee ee ee ee eo oo 
ee et ec a ee ce re el ce ee a ee ee 


0000 00000 SET_ALLO: 
RET 


SCODES + 0658 


CF 
CF 


0000G CF 
FDA7 


0000" 
Routine Base: 


30 bytes, 


; Routine Size: 
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SORSCOMMAND 18-se S$ep-1984 00:45:11 AX-11 Bliss-32 V4.0-7 P 5 

vou=000 10 388-138e 99:43:41 SORT32.SRCISORCOMMAN. 4 231 29° 03) 
ee CMD _ERROR(SORS_SHR_SYNTAX, 1, STRING_DESCCBASE_J); 


} Process the keyword. 


ONEOF _(. LOOKUP pPnsk (K_BINA,K_CHAR,K_DECI,K_PACK,K_ZONE, 
K-F _F K_G_FC,K_H_FC)) 


THEN 
BEGIN 


Check whether the user has already specified the key data type. 
iF .TYPE NEQ 0 THEN CMD_ERROR(SORS_KEYAMBINC) ; 
Set the key data type. BINARY and DECIMAL are fixed up Later. 
TYPE = .TABC.LOOKUPI; 
' ND 
nee. * OVER K SEPA) 1) tae (K_ASCE,K_DESC,K_SIGN,K_UNSI,K_LEAD,K_TRAI, 
THEN : 
BEGIN 
Set the option, and verify that it's opposite isn't set. 
ASSERT _ ((B_ASC XOR B_DES) EQL 1) 
ASSERT_((B-SIG XOR B_UNS) EQL 1) 
ASSERT. ( (B LEA XOR B_TRA) EQL 1) 
sear TAs - PvE 5) 1°: 2 filer 1) 
IF TeSTBITSC (OPTS J TABLS LOOKUP] XOR 1)) 
Nom ERROR (SORS_KEYAMBINC); 


ELIF 


PRE EEE EWN NINN ONINININININININD SS BOO OOOO 


QAANFWR —OOONOA UE WUD 3 0 OD NAME WIN 0 ODNAUES WN OO ODNAULS AR (OO ONAUE WN O 


betel al al al al sh sb ab Ab ab ab Ab Ab db db eh dh dh eh ah eh sh lala! 


atadadadtadadadadbadatabadadadadad dadatatdatadabadadiabadaaAdadabuabahiababababababababababahbabababababababababababal 
Ss s32s 000909 09 09 09 C9 09 SIN ISIN NINN NINO O 


a ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee 
Sa ae ee tee tee fe Bi Bi bn mB Bee_ Bee Bn De i i tb fe et td ee fe i ee i i ee 
eee Py oy oy oy oy or le Pt ot et el he ee et ee et et et et et et ed | et et et et et et et et et eh Ph hh nh ne 


, ooKuP EQL K_POSI 
BEGIN Set pcort ing pes itren of key 
IF TESTBITSS(OPTSCB_POS]) THEN CMD _ERRORISORS KEYAMBINC); 
STORE. (POSIT, NUMERTC_PARSE (SUBVAL_DESCCBASE_J)); 
ELIF 
«LOOKUP EQL K_SIZE 
THEN 
BEGIN ! Set size of key field 
age . LOCAL 
4 5 IF TESTBITSS (OPTS CB $1Z]) THEN uo ERROR (SORS _KEYAMBINC); 
59 5 TMP = NUMERIC_PARSETSUBVAL_DESCCBAS 
396 2 IF TMP E EQL -T TH EN SIZ = =1 ELSE STORE. (SIZ, TMP); 
600 : ELIF 
601 LOOKUP EQL K_NUMB 
602 5 THEN 


H 4 
SORS AND 16-Sep-1984 00:45:11 AX-11 Bliss-32 V4.0-74 Page 56 
yoe-000" 12-80-1382 tT ee HSbRT$2° SRE ISORCOMMAN. 2;1 . (235 
; 1603 1757 4 BEGIN ! Set key number : 
: 1604 17 4 IF TESTBITSS(OPTSCB_NUM]) THEN CMD_ERROR(SOR a 1 Yanai 7 f 
; 1605 12 4 STORE. (KEY NUM, NUMERIC_PARSE (SUBVAL_DESCCBASE_J)); : ; 
; 1809 U 1761 4 ZIF FUN_K_KANJ] %THEN : | 
; 1088 U 1708 4 F 3 f 
; 16 uU 1763 4 «LOOKUP EQL K_DTYP 2 ( 
; 1610 U 1764 4 THEN 
; 1611 U 1765 4 BEGIN 
; a U 1706 4 ' 
; 161 U 1767 & ! Convert the string to a number 
: 1614 U 1708 4 ! 
; 1615 U 178 4 
; 1oi8 u 1770 4 STATUS; 
; 161 u1771 4 IF SORSSDTYPE_T_W EQL 0 
: 1618 U ere 4 THEN 
: 1619 U 17735 4 CMD_ERROR(SORS SHR _BADKEY, 1, STRING _DESCCBASE_J); 
: 1620 U1774 4 IF .TYPE NEQ 0 THEN CMB_ERROR(SORS KEYAMBING) ; 
; 1621 u1775 4 IF .SUBVAL_DESCCDSC$W_LENGTH] EQL 0 
; 16 ¢ U 1776 4 ! No value where one was expected 
; 1694 Vie 2 CMD_ERROR(SOR$_SHR_NOVALUE, 1, STRING_DESCCBASE_)); 
: 1625 U 1779 4 STATUS = SORSSDTYPE_T W(SUBVAL_DESCCBASE J, TYPE); 
: 1626 U 1780 4 IF NOT .STATUS THEN CAD_ERROR(SORS_KEYAMBINC, 0, .STATUS); 
: 1627 U 1781 4 OPTS(CB_DTYJ = TRUE; 
: 1628 U Irae 4 END 
: 1629 1783 4 &FI 
; 1630 1784 3 ELSE 
: 1631 1785 4 BEGIN 
; 16 ¢ 1786 4 ! 
: 163 1787 4 ' We've already complained about other keywords. 
3: 1634 1788 4 ' K_SI has already been converted to K_SIZE or K_SIGN. 
: 1635 1789 4 : 
3 1036 1790 4 0; 
3; 16 1791 3 END; 
: 1638 fa END; 
; 1639 179 
; 1640 1794 
3 1641 U 1795 ZIF FUN_K_KANJI XTHEN 
3 1966 U 17s IF ROT .OPTSCB_DTY] THEN 
3: 164 179 RFI 
3 1644 1798 IF .TYPE EQL 0 THEN TYPE = DSCSK_DTYPE_T; ! Default to text 
: 1645 1799 
3 1946 1 si 
3 + #3 ! 4 } Compute the size for the floating datatypes 
: 1869 P 1 08 IF ONEOF (. TYPE, BMSK_( 
: 1650 1804 DSCSR_DTYPE_F, DSCUSK_DTYPE_D, DSCSK_DTYPE_G, DSCSK_DTYPE_H)) 
4 1832 i o THEN BEGIN 
; 1888 1807 LOCAL : 
3 1654 1808 TMP; ! Save the us r-ppoc) tied size for a moment 
: 1655 1809 ASSERT_(1*(DSCSK_D7YPE_F MOD 8) EQL 4) 
3 1638 1810 ASSERT_(1*(DSCSK_DTYPE_D MOD 8) EQL 8 | 
3; 165 1811 ASSERT_(1*(DSCSK_NTYPE-G MOD 8) EQL 8) 
; 1658 1 I ASSERT~(1*(DSCS$K~DTYPE-H MOD 8) EQL 16) | 
3; 1659 181 TMP = (SIZ; 


4 
sertgannae WE$Sect98E Q0:45:1)  YABGHL PLLeHSRE aba RaTeg 
S$1Z = 1 * .TYPE<0,3,0>; 
If the user specified a size, make sure he was correct 
IF TESTBITSS(OPTSCB_S1Z]) 
THEN 


enp Jf “TMP NEG .SIZ THEN CHD_ERROR(SORS BAD_KEY); 


%IF FUN_K KANJI %THEN 
IF -OPTSCB_DTYJ 
THEN 


SEES SE TESSS 


SOWONOUS WOO 


FOS) = TRUE; ! Assume position seen 
$12] = TRUE; Assume size seen 


ccccccc 


a aa a a ak a 8 ed = td = 4 — 9 9 2 2 = — 2 — — 4 — 2 4 


tot ott-3 


ZF I 
Make sure that position and size were specified 
iF TESTBITSC (OPTSCB_POS]) AND TESTBITSC(OPTSCB_SIZJ) 


PAAAAAAAAAO 
ONAN NNN 


S260 


co. 
Wr 


SE 
CMD_ERROR(SOR$_BAD_KEY); 


Check the number of keys 
ir KEY_NUM EQL 0 OR .KEY_NUM GTRU MAX_KEYS 


BRANLESELS 


BEGIN 
CMD_ERROR(SOR$_NUM_KEY); 
KEY-NUM = MAX_REYS; 


FRO: 
OPTSCB_NUM] = FALSE; 


AOS 


Some checks on the data type 


iF ONEOF_(.TYPE, BMSK_(DSCSK_DTYPE_T, DSC$K_DTYPE_NZ, DSCSK_DTYPE_P, 
nie DSCSK_DTYPE_F, DSC$K_DTYPE_D, DSCSK_DTYPE_G, DSCSK_DTYPE_H)) 


ELIF 
-TYPE EQL DSCS$K_DTYPE_B 
THEN 
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SELF 
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ot 
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9042500 12-8 08=1 he 90 tbiat eaaT $2 sre SORCOMMAN.B52;1 . (235 
17 ASSERT_(DSCSK_DTYPE_B-4 EQL DSCS$K_DTYPE_BU) 
1 ASSERT_(DSCSK_DTYPE_W-4 EQL DSCSK_DTYPE_wu) 
1 ASSERT_(DSCSK_DTYPE_L=4 EQL DSCSK_DTYPE_LU) 
ASSERT_(DSCSK_DTYPE-Q=4 EQL DSCSK_DTYPE_Qu) 
1 IF . TYPE EQL BSCSk_BTYPE_0 
¢ THEN TYPE = DSCSK_DTYPE_OU 
7 - ELSE TYPE = .TYPE = 4; ~! Convert from DTYPE_x to DTYPE_xuU 
5 oprstB é1¢3 = FALSE; 
§ OPTSLB_UNSJ = FALSE; 
END 
3 ELIF 
-TYPE EQL DSCSK_DTYPE_NRO 
0 THEN 
1 BEGIN 
§ IF TESTBITSC(OPTSCB_UNSJ) 
TYPE = DSCSK_DTYPE_NU 
5 ELSE 


BEGIN 

OPTSCB_SIG) = FALSE; 

IF_.OPTSCB_LEA] THEN TYPE = DSC$K_DTYPE_NLO; 
OPTS(B_LEAJ = FALSE; 
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OPTS(B_ TRA) = FALSE; 
IF .OPTSCB_SEP) 
THEN 
BEGIN 
ASSERT_(DSCSK_DTYPE_NLO = 1 EQL DSCSK_DTYPE_NL) 
ASSERT—(DSCSK-DTYPE_NRO = 1 EQL DSCSK~DTYPE NA) 
E = .TYPE = 1; ' Convert from DTYPE_NxO to DTYPE_Nx 
sl = .SIZ + 1; ! Increase the size fo include the sign 
90 oprsta seP3 = FALSE; 
90 OPTS(B_OVE) = FALSE; 
90 END 


END 
X1f FUNK KANJI XTHEN ELSE IF TESTBITSC(OPTSCB_DTYI) THEN O FI 
CMD_ERROR(SOR$_SHR_BADLOGIC); 


: Copy key definition with defaults to block in key buffer. 


CURRENT _KEY = or sey KBF (KEY NUM-1)]; 
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61 TF CURRENT KEY KBF_ORDER_$] GEQ 0 

8g CMD_ERROR(SORS_KEYAMBINC); 

64 CURRENT-KEYCKBF_ORDER] = .OPTS(B_DES); ' Ascending/Descending 

65 CURRENT -KEYCKBF TYPE) = . TYPE; i DSC datatype 

66 OPTS(B_BDES] = FALSE; 

6 OPTSCB-ASC] = FALSE: 

68 CURRENT_KEY KBF POSITION] = ,POSIT = 1; ! Adjust to start at pos 0 
CURRENT-KEYCKBF-LENGTH) = .SIZ; i Size 
KBF CKEY-NUMBER}~= MAXU(.KBFCKEY_NUMBER], ..KEY_NUM); ' Another key 


a a a a a ks ee a el ee ee el a ed 
SN NSS NNN NSS SSS SS SS 
a a a a a a ee el a ll el a le a a a a a od 


PRIPDPIPIPIPNINDPININIPYNMIPIPPIPININI HME BB TT BS BB BB BE PANINI RII BF PPE EE 
“ 
~< 
~ OW 


ANNO 
Wwn—O0 


! We should have used up ail the options 
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-OPTS NEQ 0 THEN CMD_ERROR(SORS_KEYAMBINC); 


IF 
END; 
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1 
* SORT s2.SRC 


Save R2,R3,R4,R5,R6,R7,RB 
KEY_NUM, RB 
CMD“ERROR, R7 
KEY-NUM 
TYPE 
#1, POSIT 

1° Siz 
opts 
STRING_DESC 

_KEY 
2; L1_GET_VALUE 
KEYWORD_ TABLE 
#1, LOORUP_KEY 
RO, LOOKUP 
LOOKUP, #14 
STRING_DESC 
the CS ERROR 
YBVAL _BESC 
#16, LOOKUP 
#15, LooKyp 

OOKUP, #2654208, RO 
UBVAL_DESC 
STRING_DESC 


#1839356 
#3, CMD_ERROR 


LOOKUP. #2005141504, RO 
TYPE 
6$ 
#1868084 
#1, CMD ERROR 
TABCLOORUP), TYPE 

OKUP, #-2007928832, RO 
TABLLOOKUP) RO 
RO, OPTS, 9§ 
TABLLOOKUP, RO 
wi, Re 
RO OPTS. 14$ 
#1868084 
#1, CMD_ERROR 


LOOKUP, #12 
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SORS COMMAND 16 Se 1984 00:45:11 AX-11 Bliss-32 V4.0-74 P 1 
-Sep- 8 $ = ss- «VU? age 
y042000 13-88-1382 eee SORT32.SRCJSORCOMMAN.B32;1 . (2%) 
1A 1 ¢ BNEQ 12% ; 
09 53 8 ig &¢ BBCS #8, OPTS, 11$ + 1741 
001¢8134 t DD 000C8 PUSHL 71868082 : 
7 1 FB ce CALLS #1, CMD_ERROR : 
C8 AS 9F 00001 11$:  PUSHAB SUBVAL BESC + 1742 
0417 c7 o1 FB D4 CALLS #1, NUMERIC_PARSE : 
4 0 : 09 MOVW i POSIT : 
8 1 0000¢ BRB és ; 
10 D1 OOODE 12$: CPL LOOKUP, #16 : 1745 
: if OE BNE $ : 
09 53 E3 OO0E Bacs = s#9 gprs, 13$ + 1750 
001¢8134 8F DD OE PUSHL #1868084 : 
67 1 FB OOOED CALLS #1, CMD_ERROR : 
C8 AB SF OOOFO 13$ PUSHAB SUBVAL_BESC : 1751 
0417 (7 01 FB OOOF CALLS #1, NUMERIC_PARSE : 
FFFFFFFFE © 8F 50 D1 OOOF CMPL sa, #=1 + 1752 
05 12 OOOFF BNEQ 15$ : 
55 01 AE 90191 MNEGW #1, SIZ : 
88 11 001 146$: BRB 7$ ; 
55 BO 00106 15$:  MOVwW 2, SIZ ; 
50 50 10 00 FD 00109 16$: cmPzv #6, #16, 2, 2 ; 
81 00105 BEQL ; 
E D4 0011 CLRL © =(SP) : 
50 DD 00112 PUSHL 2 ; 
02 DD 00114 PUSHL #2 : 
001¢102C 8F DD 00116 PUSHL #1839148 : 
33 11 O011C BRB 21$ : 
OA 32 D1 OO11E 178 CMPL — LOOKUP, #10 : 1755 
03 13 00121 BEQL 19S ; 
FEF2 31 00123 18$: BRW 1$ ; 
09 53 OA £3 00126 19$:  BBCS #10, OPTS, 20$ : 1758 
001€8134 8F DD O012A PUSHL #1868084 : 
67 01 FB 001 9 CALLS #1, CMD_ERROR : 
C8 AS 9F 00133 20$:  PUSHAB SUBVAL BESC : 1759 
0417 (7 01 FB 001 CALLS #1, NUMERIC_PARSE : 
68 50 90 00138 MOVE 2, KEY_N : 
50 50 08 00 FD 01 : cmPzv #6, #87 2, 2 ; 
DE 014 BEQL ©: 18$ : 
: D4 00145 CLRL = =( SP) ; 
50 DD 00147 PUSHL 2 : 
02 DD 00149 PUSHL #2 ; 
001C1014 8F DD 0014B PUSHL #1839124 : 
67 04 FB 00151 21$: CALLS #4, CMD_ERROR : 
04 o1 4 RET : 
54 95 00155 228: TSTB TYPE > 1798 
3 1 01 7 BNEQ 23$ ; 
54 E 3 159 MOVB #14, TYPE ; 
50 00300018 F 4 15C 238: ASHL TYPE, #3145752, RO > 1804 
3 18 00164 GEG 30s «24S ; 
50 3¢ 001 MOVZWL SIZ, TMP + 1813 
51 54 6 ai 16 EXTZ2V. #0, #3, TYPE, R1 : 1814 
51 1 1g ASHL = -R1. #1, RY : 
3 1 B80 001 MOVW RI. SIZ ; 
19 9 £3 0017 BBCS #9, OPTS, 24$ : 1818 
50 § 10 g FD O17 CMPZV #0. #16, SIZ, TMP : 1820 
ve BEQL 24$ : 
001¢8034 8F DD 001 PUSHL #1867828 : 
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SORSCOMMAND 16-0 $ep-1984 00:45:11 YAX=11_Bliss-32_v4.0- 
vO4=000" wSep-1986 $Sit0:41 — ERORTS2°SRESSORCOMMAN.BS2; 1 


001€1124 8F DD 408: 
? Bi PB bossy 
8 SA A 418: 
C4 
£0 B840 D i 
06 C 4 
a 8 é 
4B 
001€8134 F DOD 28 
50 53 67 } fe 6 42$ 
02 A 0 B0 8 
4 9B F 
F BA 00262 
04 A2 6 1 AS 66 
06 ae 5 RP 0268 
5 EO +4 C 0026F 
50 68 08 5p 0 es 
0 8 8 7 
50 oA 7A 
EO 88 BO 0027D 43S: 
D 8° 81 
09 13 00283 
y 00108156 8F DD 88 85 
01 FB 8 see 
04 0028E 448: 


Routine Size: 655 bytes, Routine Base: S$CODE$ + 068D 


; 1778 1932 1 

: 1779 1933 1 ROUTINE SET_KEY: NOVALUE = 

: 1780 1934 g GIN 

> 1781 1935 WHILE CLI_NEXT_QUAL(SD_KEY) DO PARSE_KEY(); ! 
> 1782 1936 1 END; 


0000 00000 SET_KEY 
0000" CF 9F 4 18: 
00006 fF 1 4 0006 
rose CF 0 FB O000E 
ED 11 0001 
04 00015 2$: 


Routine Size: 22 bytes, Routine Base: S$CODE$ + O9IC 


#1839396 
#1, CMD_ERROR 
: YLNUM, RO 


ScOF ERO] CURRENT _KEY 
#6, CURRENT KEY 
i _KEY) 


68084 
aye CMD =fRage 


RO 
;_2(CURRENE KEY) 
i + (CURREN NT_KEY) 


posit 4 (CURRENT _KEY) 
gi (CURRENT_KEY) 


akB 
#9 PM, KEY_NUM, RO 
43$ 

KEY_NUM, RO 

RO, akBF 

opts 


44$ 
#1868084 
#1, CMD_ERROR 


Do it again and again 


SD KeY nothing 
cL _NEXT_QUAL 
8: SARSE KEY 


See Fe Se Se Se Se Ge Se Se Se Ge Se Ge Ge Ge Ge Ge Be Ge Fe Ge Be Se Se Be 


ate 


1936 


SORS AND 1b-se -$ep-1984 00:45:11 AX-1 $338 v4.0 Pa = 
yoes000" Haat hi 99: 13; 741 SORT 2° CISORCOMMAN. B82; 31 9° 28) | 
3 17 1937 1 ROUTINE SET_COLL: NOVALUE = 
: 1785 1338 1 
3 i7 § 19 1 !e4 
3 i7 1940 1: 
; 17e8 1941 1 | Functional Description: 
: 1789 bo 1 i 
: 1790 1943 1 Routine to call CLI to get the argument of the /COLLATING SEQUE 
: 1791 1944 1! ualifier. The valid arguments are ASCII, EBCDIC and MULTINATIONAL. 
3 1738 1945 1 f no argument is given, ASCII is assumed. 
; 179 1258 1 
3 1794 1947 1 | Formal Parameters: 
; 1795 1948 1! 
3 178 1949 1 QUAL _DESC address of the qualifier descriptor block. 
3; 179 1950 1! 
; 1798 1951 1 ' Implicit Outputs: 
3; 1799 1336 1 : 
; 1800 1953 1! OPT is modified to have the appropriate option bit set. 
; 1801 1954 1 / 
: 1306 1955 1 ie- 
: 180 1398 BEGIN 
3: 1804 195 
; 1805 1958 KEY_TABLE_(STR_OPT_COLL); 
3 1998 1959 
; 180 1960 OWN 
; 1808 1961 TAB: VECTORCTABLE_SIZE,BYTEJ 
> 1809 1968 PSECT (SCODES) PRESET 
: 1810 196 eat = 
> 1811 1964 K"EBCDJ= Shas _EBCDIC, 
; 13l¢ 1965 CK_MULTJ= SORSM_MULTI); 
; 181 1298 LOCAL 
3: 1814 196 LOOKUP; 
>; 1815 1968 
: 1816 1969 CLI_GET_VALUE( SD_COLL, STRING _DESCCBASE_J ); 
: 1817 1970 LOORUP = LOOKUP_KEY (KEYWORD. TABLE); 
; 1318 1971 IF .LOOKUP LSSU~TABLE_SIZE THEN Opt = .OPT OR .TABC.LOOKUP); 
: 1820 1978 1 END; 
94 2 -BLKB ; 
00 00934 TAB: BYTE 3 
00G 00* 00935 BYTE <SORSM_EBCDIC&255>, SORSM_MULTI ; 
-PSECT SPLITS,NOWRT,NOEXE,2 
49 $3 53 43 83 eR P.ADF eASCII <S>\ASCIIN 
43 49 44 4 ¢ 45 06 47E P. ASCII <6>\EBCDIC\ 
49 54 41 4E 49 54 4C 55 4D OD B38 P.ADH: .ASCII thie caiman 
68 $30 008 re -LONG 3 
00000000" 00000000" 00000000' 00498 P.ADE ADDRESS P.ADF, P.ADG, P.ADH 
KEYWORD_TABLE= P.ADE 


«PSECT SCODES,NOWRT,2 


SORSCOMMAND base =1984 00:45:11 AX-11_ Bliss-32 V4.0-7 Page 65 
9002500" i ety 7 9: ta:44 SORT32. SRC SORCOMMAN.B 2:1 9° 28) 
0000 00000 SET_COLL: 
7 «WORD Save nothing : 1937 
9000" CF OF PUSHAB STRING_DESC : 1969 
00006 CF "65 BB 000A a tice 3-cOt GET_ VALUE ; 
0000' CF 9F PUSHAB KEYWORD Upeke : 1970 
0000v cr 1 FB CALLS # RUP_KEY : 
3 0 D1 1 CMPL LOOKUP, 3 + 1971 
A iE 0018 BGEQU ; 
51 DC AF4O 9A 001 NOV ZBL TABCLOOKUPJ, R1 : 
0000" CF 51 c8 : BISL2. R1, OPT ; 
4 00027 1$: RET + 1973 


; Routine Size: 40 bytes, Routine Base: SCODE$S + 0937 


5 
SORSLDMRAND rB-sep-1986 00:45:11 YaNeTL BLing=52 v4.0-742, 


3 3 ; 1974 1 ROUTINE LOOKUP_KEY 

3; 3 130? 1 

> 1824 1 6 1 TABLE: REF VECTOR 

: 1825 1977 1 )s 

3 3 § 1308 1 

3; } 1979 1 !44 

: 1828 1980 1! 

3 HY ; i 1 ! FUNCTIONAL DESCRIPTION: 

: + 1 19 é 1 ! This routine is called to process the qualifier value for qualifiers 
3 : iP ¢ : that take keyword values. 

; i8 1986 1 ! FORMAL PARAMETERS: 

; 1835 1987 1! 

: 1836 1988 1! TABLE = Pointer to keyword table 

; 1837 1989 1! 

: 1838 1990 1! IMPLICIT INPUTS: 

; 1839 1991 1! 

: 1840 1236 1! STRING_DESC contains the keyword to match against, and pocenety a value. 
: ee 133? ’ 10S_CMBFLAGS has already been initialized to default values. 

3 1848 1995 1 ! IMPLICIT OUTPUTS: 

3 1844 1296 1! 

; 13¢2 pad : : SUBVAL_DESC is set to describe the value (if any) on this keyword. 
3 1829 1999 1 ! ROUTINE VALUE: 

3; 1848 000 1! 

3 4 O03 : If the keyword was found, the index of the keyword, otherwise -1. 
: 1851 $08 1 ! SIDE EFFECTS: 

; 1326 004 1! 

: 185 005 1! If the keyword was not found, a diagnostic is issued. 

3; 1854 One 1! 

; 1855 007 1 !=- 

; 1856 008 1 

3; 1857 009 BEGIN 

3; 1858 010 MAP 

3; 1859 011 TABLE: REF VECTOR; 

: 1860 Org 

3: 1861 01 LOCAL 

3 1368 014 L. ' Keyword string length 

; 186 015 A: REF VECTORC,BYTE), ' Keyword string address 

3 1864 Big INDEX; ' Routine return value 

3 139? 3 

: 1869 $19 ! Search through table looking for a single match. If more than one 

3 18¢9 0 Y match is found return an error. 

: 138 § INDEX = -1; ! Initialize return to error 
: 1872 o 4 t Remove the value (if any) from this keyword 

3: 1874 0 $ A = .STRING_DESCCDSCSA_POINTER); 

: 1875 0 L = .STRING DESCCDSC$W_LENGTH); 

, 7 8 856 L = .L = KEYVALUQ; 

: 187 L = iL = .SUBVAL_DESCCDSCS$W_LENGTHI; 

; 1878 030 


rms 


we. 
$ = - 3 3 = = ~VU= 
v04-000" 1eSep-t98e $S:t0:41 — USGarS2eSReSsORcOMMAN.BS2; 1 Page (8) 


INCR OM 0 TO .TABLEC-1)-1 DO 


8 
L 
REF MACTORE BYTE; 
P = ,TABLEC.NJ; ! Point to ASCIC keyword string 
IF .PCOJ GEQ ats 8> THEN 
IF CHSEQL(.L, ACOS, .L, PC1I) 
BEGIN 
We found a matching name. 
if .INDEX LSS 0 


INDEX = .N 


EES on 


0 ek ek te ee teh kh ah tah ach tah ah oe ed 


loleolelelelolealeleloleloleleleloa) 


SES3S2 


END; 
Ir: Pod EQL .L<0,8> THEN EXITLOOP; ! An optimization 
END; ‘ 


IF .INDEX LSS 0 
THEN 


BEGIN 
CMD _ERROR(SORS$_SHR_BADKEY, 1, STRING_DESCCBASE_]); 
RETORN -1; 


SS tt 


S38 


-O0eon 
SSSSSssssssssSEeFesE 
= 


Bae Se Se Ge ee Se Se Ge Ge Ge Oe ee Se Se Se SSE Se Se Se Se Se Se Se Se Se Seen Se Se Seese 
kk a td 
PAPAIN 


oo 
—— 
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i 
4 
4 
4 
4 
4 
4 
4 
BEGIN 
CMD _ERROR(SORS$_SHR_BADKEY, 1, STRING_DESCCBASE_J); 
RETORN -1; 
4 
1 


ee . INDEX; ' Return value 


So 


O7FC 00000 LOOKUP_KEY: 
WORD 


WO Save R2,R3,R4,R5,R6,R7,R8,R9,R10 : 1974 
SA 0000" CF 9€E 0000 MOVAB STRING DESC, R10 : 
58 01 cE 000 MNEGL #1, INDEX > 2022 
59 04 AA p OOOA MOVL § STRING_DESC+4, A > 2026 
56 A 3C O00F MOVZWL STRING DESC, L : 0 7 
FAS9 ff Fe 1 CALL +f KEVVALU 5 8 
6 g 0016 SUBL2 RO. L : 
08 AA 01 MOVZWL SUBVAL DESC RO : 2029 
é 50 C O10 SUBL2. RO, L : 
04 AC D MOVL TABLE, R7 : 031 
55 1 ce 4 MNEGL #1, N : 20 
i‘ 7 BRB 2$ ; 
54 674 po 9 1$: MOVL - (R7)CNJ, P : 035 
. B78 gree i 
01 «Ab 69 56 3 09 CMPC " (A), 1¢P) : 2037 
o¢ : BNEQ § ; 
D5 00039 TSTL INDEX > 2043 


5 
SORSCOMMAND 1S-se “19 
yoe~000 14-Sep-19 
1 
r 1 18 sags 
6 g 4 
; 1 4 
DF 55 ;. a= = 4 gf: 
3 8 4A 3$: 
1 4C 
A DD 8 4E 4$: 
1 OD 
001C110C F OD 
F644 gf 3 FB 
0 1 fF 2B 
4 6 
50 58 00 00061 5$: 
04 00064 
; Routine Size: 101 bytes, Routine Base: S$CODES + O095F 
131% 
191 065 1 END 
1914 066 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SPLITS 1188 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, 
SCODES 2500 NOVEC,NOWRT, RD, EXE,NOSHR, 
Library Statistics 
(er ee ee ee = Symbols eee eeawan ae 
File Total Loaded Percent 
~$255$DUA28: CSYSLIBILIB.L32;1 18619 51 0 
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COMMAND QUALIFIERS 


S 90:43:11 AX-11 Bliss-32 V4.0-74 
4 13:10:41 SORT32.SRCJSORCOMMAN.B52; 1 
BGEQ 4$ 
MOVL N, INDEX 
CMPB (f), L 
BEQL $ 
AOBLSS <=4(R7), N, 1$ 
TSTL NDEX 
BGEQ $ 
PUSHL R10 
PUSHL #1 
PUSHL #1839372 
CALLS a3 CMD _ERROR 
MNEGL #1, RO 
RET 
MOVL INDEX, RO 
RET 
LCL, RE CON,NOPIC ,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
1000 00:01.7 


BLISS/CHECK@CFIELD, INITIAL OPTIMIZE) /MOTRACE/L ISL 15S: SORCOMMAN/OB)=08.J8: SORCOMMAN MSRC$: SORCOMMAN/UPDATE=(ENH$ : SORCOMMAN 


H 5 
sore AND 16-Sep-1984 00:45:11 VAX-11 Bliss-32 V4.0-742 Page 69 


745. 
nes/CPU M 34 

Lexenes/CPU-Min: 2417 
ry Used: 333 pages 

Compilation “Complete 


“ code + 1285 data bytes 
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NL 
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AL EQUIPMENT CORPORATION | 
DENTIAL .AND PROPRIETARY 


AH-BT1i3A-SE 
VAX/VMS V4.0 


IT 
FI 


D 
C 


G 
N 


I 
0 
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AL EQUIPMENT CORPORATION > 
DENTIAL .AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


IT 
FI 


DIG 
CON 


036 


